Bài 10: Cấu trúc lặp

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

Mọi người giúp mình câu này với ạ : VIết chương trình trong pascal nhập vào 3 số nguyên dương a,b,n (a,b<n). Tính tổng các số nguyên dương nhỏ hơn n chia hết cho a nhưng không chia hết cho b

Nguyễn Lê Phước Thịnh
1 tháng 12 2022 lúc 13:45

uses crt;

var a,b,n,i,t:integer;

begin

clrscr;

readln(a,b,n);

t:=0;

for i:=1 to n do 

  if (n mod a=0) and (n mod b<>0) then t:=t+i;

writeln(t);

readln;

end.


Các câu hỏi tương tự
Nguyễn Hoàng Thiên Lam
Xem chi tiết
nguyen thi be
Xem chi tiết
Quân Nguyễn
Xem chi tiết
Lê Thị Thùy Dung
Xem chi tiết
Hoàng Hugi
Xem chi tiết
Vũ Đinh
Xem chi tiết
Hoàng Hugi
Xem chi tiết
Thương Nhi
Xem chi tiết
Hoàng Hugi
Xem chi tiết
vy Lê
Xem chi tiết