hãy mô tả thuật toán và viết chương trình pascal tính tổng các số tự nhiên chia hết cho 3 từ 1 đến 1000 gợi ý sử dụng lồng vòng lặp và câu lệnh if

thanhconhn97

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 45 xem

1 trả lời

Thích Trả lời

havi81732

Mô tả thuật toán:

Input: Số tự nhiên từ 1--->1000

Output: Tổng của S

Thuật toán

B1: s<---0;i<---1

B2 : Nếu i > 1000 thì đến B;
B3 : Nếu i mod 3=0 thì s <- s + i
B4 : i <- i + 1 và chuyển về B2
B5 : Thông báo s

B6: Kết thúc thuật toán

Viết chương trình

Program BTH;
Uses crt;
Var i:integer;
s:qword;
Begin
clrscr;
For i:=1 to 1000 do
Begin
If i mod 3=0 then s:=s+i
end;
Writeln('Tong day so tren la: ',s);
readln;
End.

Vote (0) Phản hồi (0) 2 năm trước

953251008461812

Mô tả thuật toán:

Input: Số tự nhiên từ 1--->1000

Output: Tổng của S

Thuật toán

B1: s<---0;i<---1

B2 : Nếu i > 1000 thì đến B;
B3 : Nếu i mod 3=0 thì s <- s + i
B4 : i <- i + 1 và chuyển về B2
B5 : Thông báo s

B6: Kết thúc thuật toán

Viết chương trình

Program BTH;
Uses crt;
Var i:integer;
s:qword;
Begin
clrscr;
For i:=1 to 1000 do
Begin
If i mod 3=0 then s:=s+i
end;
Writeln('Tong day so tren la: ',s);
readln;

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Làm ơn giúp mình.....................................................................................

Mạng máy tính là gì? Hãy nêu các lợi ích của mạng máy tính

Mọi người ơi giúp em với. Tối e phải nộp r em cần gấp lắm ạ. Help me 🥺

Giúp mk vs mn ơi và mk sẽ cho ctlhn

Tìm điều kiện để phân thức có nghĩa

Các bạn giúp mình làm phần Part 2 nha

Mọi người giúp mình với mình bất lực lắm rồi

cho một số có hai chữ số , khi ta viết thêm vào bên trái số đó một chữ số 1 thì tổng của số mới và số đã cho là 198 . tìm số đã cho

Tinh dien tich sung quanh va dien tich toan phan cua honh lap phuong co canh la 1dm 8cm.

thả một vật rơi tự do có khối lượng 500g từ độ cao 45m so voi mặt đất ,bỏ qua ma sát với kk tính thế năng của vật ở cuối giay thứ hai cho g=10m/s2

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến