Bài 7. Câu lênh lặp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
depgaiqua

program Tinh_tong;

uses crt;

var i, n, s: integer;

begin clrscr;

writeln('Chuong trinh tinh tong S = 1 + 2 + ... + n');

write('Nhap so n: ');read(n); s:=0;

for i := 1 to n do s := s + i;

writeln('Tong cua ',n,' so tu nhien dau tien s = ',s);

readln;

readln;

end.

* Dựa vào vòng lặp for viết chương trình tính tổng n số tự nhiên bằng vòng lặp while

Minh Lệ
26 tháng 2 2021 lúc 17:09

Program HOC24;

var i,n,s: integer;

begin

writeln('Chuong trinh tinh tong S = 1 + 2 +3 +...+ n');

write('Nhap so n;'); readln(n);

s:=0; i:=1;

while i<n do

begin

s:=s+i;

i:=i+1;

end;

writeln('Tong cua ',n,' so tu nhien dau tien s = ',s);

readln

end.

Nguyễn Lê Phước Thịnh
26 tháng 2 2021 lúc 21:24

uses crt;

var i,n,s:integer;

begin

clrscr;

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

s:=0;

i:=0;

while i<=n do 

begin

i:=i+1;

s:=s+i;

end;

writeln(s);

readln;

end.


Các câu hỏi tương tự
Xem chi tiết
Đào Nguyên
Xem chi tiết
Phạm Lê Quỳnh Nga
Xem chi tiết
Hoàng Đình Đức Duy
Xem chi tiết
Lily
Xem chi tiết
marian
Xem chi tiết
đỗ thị mai quyên
Xem chi tiết
Harry Anderson
Xem chi tiết
Tạ Đỗ Thanh Huyền
Xem chi tiết