Quảng cáo
2 câu trả lời 372
Program tinh_tong;
uses crt;
const : N:=100;
Var i,tong:integer;
begin
clrscr;
tong:=0; i:=1;
while i<=N do
begin
tong: = tong + i;
i:=i+1;
end;
Writeln('tong cua 100 so tu nhien dau tien la ',tong);
Readln ;
End.
*Mô tả thuật toán:
- Bước 1: s <- 1
- Bước 2: i <- 1 đến 100 thì s <- s*i
- Bước 3: Xuất s
- Bước 4: Kết thúc thuật toán
*Viết chương trình:
Program tinh;
Uses crt;
Var s: longint;
i: integer;
Begin
Clrscr;
s:=1;
For i:=1 to 100 do s:=s*i;
Writeln(s);
Readln;
End.
Quảng cáo
Bạn hỏi - Chuyên gia trả lời
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK45498
-
Hỏi từ APP VIETJACK28389
Thành viên hăng hái nhất trong tuần
-
`color{Yellow }text{Sun🌞}`
95 điểm
-
$\color{blue}{\mathcal{LeDucThienPhuoc}}$
90 điểm
-
$\color{#FA8072}{౨ৎ𝒽ế𝓉౨ৎ𝓉𝒽ờ𝒾 ౨ৎ𝓹𝓻𝓲𝓶𝓮シ}$
70 điểm
-
🩷Monuko🩷
40 điểm
-
phq.nah
40 điểm
-
✎ʏᴜɴi ♥
30 điểm
-
bbao
25 điểm
-
his princess ۶ৎ
25 điểm
-
Tuyên Lê Hoàng 20 điểm
-
Lê Đỗ Thị 20 điểm
-
Hồng Khuất Thị 20 điểm
-
저 개들 20 điểm
-
Trần Thịnh 20 điểm
Rút gọn
Bài viết mới nhất Lớp 8
-
4 năm trước10995
-
4 năm trước10400
-
4 năm trước9057
-
4 năm trước9249
-
4 năm trước8803
Gửi báo cáo thành công!
