em hãy mô tả thuật toán tính tổng các số tự nhiên từ 100 đến 1000(sử dụng câu lệ...

Tâm Hoàng

đã hỏi trong Lớp 8 Tin học

· 19:38 20/04/2022

Ôn tập Tin học 8

em hãy mô tả thuật toán tính tổng các số tự nhiên từ 100 đến 1000(sử dụng câu lệnh lặp) ai giúp mình với

Trả Lời (+5 điểm)

Lưu câu hỏi Lưu

Hỏi chi tiết

Quảng cáo

2 câu trả lời 507

☯nadttg,rudde de☯

3 năm trước

+ input : các stn từ 1 -> 100
+ output : tổng các stn chia hết cho 3
b1 : i <- 1;
tong <- 0;
b2 : Nếu i > 100 thì b4;
b3 : Nếu i chia hết cho 3 thì tong <- tong + i;
i <- i + 1 và chuyển về b2;
b4 : In TỔNG và kết thúc.
-- Chương trình
program baitap;
uses crt;
var i,tong:integer;
begin
clrscr;
tong := 0;
for i:=1 to 100 do
if ((a[i] mod 3)=0) then
tong:=tong+i;
write('Tong cac phan tu chia het cho 3: ',tong);
readln;
end.