program ko_co_ten;

uses crt;

var i:integer;

begin

clrscr;

for i:1 to 50 do writeln(i);

readln;

end.

program fh;

uses crt;

var i: integer;

begin

clrscr;

writeln('50 so chan tu nhien dau tien la: ');

for i:=1 to 50 do write(i);

readln

end.

uses crt;

var i: integer;

begin

clrscr;

for i:= 1 to 10 do

begin writeln ( ' O ' ) end;

readln

end.

uses crt;

var i,j:integer;

begin

clrscr;

for i:=1 to 4 do 

  begin

for j:=1 to 4 do 

  write('*');

writeln;

end;

readln;

end.

Chọn A

A

Nãy mình viết thiếu mn ơi :"))

a)In ra màn hình 3 dòng chữ"Toi la Turb Pascal"

For i :=....1...... to..3...do writeln('...Toi la Turb Pascal........')

b)Tính tổng của n số tự nhiên đầu tiên

For i :=..1...to..n....do

S:=....s+i;....................

program bai1;

var n,du,d:longint;

begin

write('N= ');readln(n);

d:=0;

while n<>0 do

begin

du:=n mod 10;

d:=d+1;

n:=n div 10;

end;

writeln('So chu so la ',d);

readln

end.

uses crt;

var i,j,kt:integer;

begin

clrscr;

for i:=100 to 1 do write(i:4);

writeln;

for i:=2 to 100 do 

  begin

kt:=0;

for j:=2 to trunc(sqrt(i)) do

  if i mod j=0 then kt:=1;

if kt=0 then write(i:4);

end;

readln;

end.