viết chương trình tính tổng các số từ 1 đến 100 ( sử dụng For..to..do và while..do)
viết chương trình tính tổng các số từ 1 đến 100 ( sử dụng For..to..do và while..do)
By Bella
By Bella
viết chương trình tính tổng các số từ 1 đến 100 ( sử dụng For..to..do và while..do)
for…do
program tinh_tong;
uses crt;
var i,t:integer;
begin
clrcsr;
t:=0;
for i:=1 to 100 do t:=t+i;
write(‘Tong tu 1 den 100 la: ‘,t);
readln;
end.
while…do
program tinh_tong;
uses crt;
var i,t:integer;
begin
clrcsr;
t:=0; i:=1;
while i<=100 do
begin
t:=t+i;
i:=i+1;
end;
write(‘Tong tu 1 den 100 la: ‘,t);
readln;
end.
* Sử dụng for to do:
program baitap;
uses crt;
var i,s: integer;
begin
s:=0;
for i:=1 to 100 do s:=s+i;
writeln(‘tong la = ‘,s);
readln;
end.
*Sử dụng while do:
program baitap;
uses crt;
var i,s:integer;
begin
i:=1;s:=0;
while (i<=100) do
begin
s:=s+i;
end;
writeln(‘ton la = ‘,s);
readln;
end.