Bài 9. Làm việc với dãy số

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Mỹ

VCT nhập vào 2 số nguyên A và B (A<=B) tính tổng các số chia hết cho 3 từ A đến B

Cherry
28 tháng 3 2021 lúc 17:38
 

program hotrotinhoc;

var n,i.d: integer;

t: longint;

begin

readln(n);

t:=0; d:=0;

for i:=1 to n do

if i mod 3=0 then t:=t+i;

writeln('Tong cac so chia het cho 3 tu 1 den n la:',t);

for i:=1 to n do

if i mod 3=0 then inc(d);

write('Co ',d,' so chia het cho 3 tu 1 den N');

readln

end.

Bạn tham khảo nhé!

Nguyễn Lê Phước Thịnh
28 tháng 3 2021 lúc 18:52

uses crt;

var a,b,t,i:integer;

begin

clrscr;

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

t:=0;

for i:=a to b do 

  if i mod 3=0 then t:=t+i;

writeln(t);

readln;

end.

Bùi Anh Tuấn
28 tháng 3 2021 lúc 19:42


Các câu hỏi tương tự
Hùng Anh Nguyễn Đăng
Xem chi tiết
Nguyễn Mỹ
Xem chi tiết
Vinh Thái
Xem chi tiết
emhocngulamgiupemvoi
Xem chi tiết
Nguyễn Hoàng Duy
Xem chi tiết
Phúc Duyên
Xem chi tiết
Huy Hoang Nguyen
Xem chi tiết
Huyền Trang
Xem chi tiết
minh dương
Xem chi tiết