Question

lập chương trình pascal bằng câu lệnh while .... do và for ...do

A=5+10+15.....+200

Answer 1

* fo...do

Program HOC24;

var A: integer;

i: byte;

Begin

A:=0;

for i:=1 to 200 do

if i mod 5=0 then A:=A+i;

 

write('A= ',A);

readln

end.

Answer 2

* while...do

Program HOC24;

var A: integer;

i: byte;

Begin

A:=0; i:=5;

while i<=200 do

begin

A:=A+i;

i:=i+5;

end;

write('A= ',A);

readln

end.