uses crt;

var i:integer;

begin

clrscr;

write('Cac so le tu 1 den 200 la: ');

writeln; {cách cho đẹp}

for i:=1 to 200 do

if i mod 2 = 0 then write(i:6);

readln

End.

uses crt;

var i,n:integer; S:real;

Begin

clrscr;

write('Nhap n: '); readln(n);

for i:=1 to n do S:=S+1/(i*(i+2));

writeln('Tong la: ',S:3:1);

readln

End.

khỏi ý 1 nha

program bai1;

var n,s,i:longint;

begin

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

write('Uoc cua ',n,' la: ');

for i:=1 to n do

if (n mod i=0) then write(i,' ');

s:=0;

for i:=1 to n do

begin

if (n mod i=0) then

if (i mod 2=0) then s:=s+i;

writeln('Tong cac uoc chan la: ',s);

readln

end.

có acc sever dân chơi

thang ngu nao ms cho m

program bai1;

var n,i:longint;

begin

repeat

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

until ((n>=0) and (n<=3000));

write('Cac uoc cua ',n,' la: ');

for i:=1 to n do

if (n mod i=0) then write(i,' ');

readln

end.

program bai1;

var n,i,s:longint;

begin

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

s:=0;

for i:=1 to n do

s:=s+i;

writeln('Tong la ',s);

readln

end.

sai r 3 gan' i:= i mod 2 = 0 nua~

uses crt;

var i:integer

BEGIN

for i:=1 to 100 do

writeln('chao cac ban);

readln;

END.

program bai1;

var i:longint;

begin

for i:=1 to n do

writeln('Chao cac ban');

readln

end.