Tin học Viết chương trình pascal để tính tổng 100 số tự nhiên đầu tiên 14/07/2021 By Parker Viết chương trình pascal để tính tổng 100 số tự nhiên đầu tiên
uses crt; var i,s: integer; begin clrscr; for i:=1 to 100 do s:=s+i; writeln (‘tong la: ‘,s); readln; end. Trả lời
uses crt;
var i,s: integer;
begin
clrscr;
for i:=1 to 100 do
s:=s+i;
writeln (‘tong la: ‘,s);
readln;
end.
Var
A, i: integer;
begin
A := 0;
for i:= 1 to 10 do
A := A + i;
writeln(A);
readln;end.