KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
uses crt; var s,i:integer; begin clrscr; s:=0; for i:=1 to 20 do if (i<20) and (i mod 2=0) then inc(s,i); write(‘Tong cac so chan be hon 20: ‘,s); readln; end.
program oken;
uses crt;
var n,chan:integer;
begin
clrscr;
write(‘nhap n: ‘); readln(n);
for i:=2 to n-1 do if i mod 2 =0 then chan:=chan+n;
writeln(‘tong cac so chan: ‘,chan);
readln;
end.
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 20 do if (i<20) and (i mod 2=0) then inc(s,i);
write(‘Tong cac so chan be hon 20: ‘,s);
readln;
end.