Tin học 11 - While....do......

Question

Nêu cấu trúc While - do, viết chương trình tính tổng các số nhỏ hơn 100

Answer 1

* Cấu trúc: While <điều kiện> do ;

* Viết chương trình:

program tong;
var S,i:integer;
begin
i:=1;S:=0;
While (i<100) do<br /> begin
       S:=S+i;
       i:=i+1;
end;
writeln('Tong cac so nho hon 100 la: ',S);
readln;
end.
_Chúc bạn học tốt_