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
Trí So Sad

Viết chương trình pascal tính tổng S=1+ 2+ 3 +... +n?

a,Bằng lệnh for...do

b,Bằng lệnh while...do

Nguyễn Lê Phước Thịnh
22 tháng 4 2021 lúc 21:38

a)

uses crt;

var s,i,n:integer;

begin

clrscr;

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

s:=0;

for i:=1 to n do 

  s:=s+i;

writeln(s);

readln;

end.

Nguyễn Lê Phước Thịnh
22 tháng 4 2021 lúc 21:38

b) 

uses crt;

var s,i,n:integer;

begin

clrscr;

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

s:=0;

i:=1;

while i<=n do 

  begin

s:=s+i;

inc(i);

end;

writeln(s);

readln;

end.


Các câu hỏi tương tự
Lý Tâm Như
Xem chi tiết
Minh Ngọc
Xem chi tiết
Thư Uyên
Xem chi tiết
Sinphuya Kimito
Xem chi tiết
Quyên
Xem chi tiết
Tiên Võ
Xem chi tiết
Tô Quốc
Xem chi tiết
thanh mai
Xem chi tiết
Vương Khánh ngọc
Xem chi tiết