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

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

câu 1: viết chương trình tính tổng 100 số tự nhiên đầu tiên sử dụng câu lệnh lặp với số lần chưa biết trước.

câu 2:sử dụng câu lệnh while do hãy viết chương trình tính tích N số tự nhiên đầu tiên.

Giúp mình vs ạ!!!!

Minh Lệ
23 tháng 4 2019 lúc 18:18

Lời giải :

Câu 1 :

program hotrotinhoc ;

var i,tong : integer ;

begin

tong:=0; i:=0;

while i<=100 do

begin

i:=i+1;

tong:=tong+i;

end;

write('tong 100 so tu nhien dau tien la:',tong);

readln

end.

Câu 2 :

program hotrotinhoc ;

var i,n,tich : integer ;

begin

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

tich:=0; i:=0 ;

while i<=n do

begin

i:=i+1;

tich:=tich*i;

end;

write('tich n so tu nhien dau tien la',tich);

readln

end.


Các câu hỏi tương tự
Bé Heo
Xem chi tiết
Ma Phan Đức
Xem chi tiết
Tùng Dương
Xem chi tiết
lio Nana
Xem chi tiết
Tuyết Lê
Xem chi tiết
Trà My Võ
Xem chi tiết
Trần trung hiếu
Xem chi tiết
Tiến Lê nhật
Xem chi tiết
Unh hello linh
Xem chi tiết