Question

Viết câu lệnh lặp for … do tính tổng các số chẵn trong phạm vi từ 1 đến 20.

Answer 1

begin

A:=0;

for i:=1 to 20 do A:= A+i*2;

writeln (' tong =',A);

readln;

end.

Answer 2

For i:=1 to 20 do if i mod 2=0 then t:=t+i;

Answer 3

program im_14424;

uses crt;

var i, S: byte

begin

clrscr;

S:=0

for i:=1 to 20 do

begin

if i mod 2 = 0 then S:=S+i;

write('Tong cac so chan tu 1 den 20 la: ', S);

end;

readln;

end.

Answer 4

t:=0;

for i:=1 to 20 do

if i mod 2=0 then t:=t+i;