Question

hãy dùng câu lệnh while...do để viết chương trình tính tổng của các số nguyên từ 5 đến 10

Answer 1

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

i:=5;

while i<=10 do 

 begin

t:=t+i;

i:=i+1;

end;

writeln(t);

readln;

end.