viết ct tính tổng của n số tự nhiên đầu tiên 0
viết ct tính tổng của n số tự nhiên đầu tiên 0
By Eden
By Eden
program tong;
uses crt;
var n,i,T: integer;
Begin
clrscr;
write(‘Nhap n: ‘); readln(n);
while (n<=0) and (n>150) do
begin
write(‘Nhap lai 0<n<=150: ‘); readln(n)’
end;
for i:=1 to n do T:=T+i;
write(‘T = ‘,T);
readln
End.
var s: word;
i: byte;
Begin
S:=0;
For i:=1 to 150 do s:=s+i;
Write(‘tong: ‘, s);
Readln
End.