Viết chương trình tổng của n số tự nhiên đầu tiên `0 < n <= 150` Mình cần gấp lắm ,các bạn giúp mình với 20/07/2021 Bởi Brielle Viết chương trình tổng của n số tự nhiên đầu tiên `0 < n <= 150` Mình cần gấp lắm ,các bạn giúp mình với
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. Bình luận
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.