Lập trình đơn giản

LQ

Viết chương trình tính tổng S = 1+2+3+…+N. Với N là số nguyên nhập từ bàn phím? Sử dụng câu lệnh For..to..do

H24
21 tháng 4 2020 lúc 12:33

var i,N: integer; s: longint;

Begin

Writeln('Nhap vao so nguyen N='); Readln(N);

s:=0;

For i:=1 to_N do s:=s+1;

Writeln('Tong cac so tu 1 den N la: ',S);

Readln

End.

Bình luận (0)
NT
21 tháng 4 2020 lúc 12:33

uses crt;

var n,i,s:integer;

begin

clrscr;

write('nhap n='); readln(n);

s:=0;

for i:=1 to n do

s:=s+i;

writeln('ket qua la: ',s);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
VT
Xem chi tiết
D8
Xem chi tiết
NS
Xem chi tiết
TD
Xem chi tiết
H24
Xem chi tiết
H24
Xem chi tiết
LL
Xem chi tiết
TD
Xem chi tiết
H24
Xem chi tiết