Question

[Nguyễn Bá Thành]

Sử dụng câu lệnh while in ra màn hình tổng số chẵn và số lẻ trong khoảng từ 1-20
Giúp e gấp với ạ

Answer 1

[Nguyễn Lê Phước Thịnh]

uses crt;

var i,t1,t2:integer;

begin

clrscr;

t1:=0;

t2:=0;

i:=0;

while i<=20 do 

begin

i:=i+1;

if i mod 2=0 then t1:=t1+i

else t2:=t2+i;

end;

writeln(t1);

writeln(t2);

readln;

end.