viết ct tính tổng của n số tự nhiên đầu tiên 0 { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " viết ct tính tổng của n số tự nhiên đầu tiên 0
0 bình luận về “viết ct tính tổng của n số tự nhiên đầu tiên 0<n<=150”
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.