KG

tính tổng các bội số của x trong khoảng từ a đến b, với a b là các số nguyên được nhập vào từ bàn phím. 

pascal ạ, giúp mình với nhé

NT
12 tháng 1 2022 lúc 22:19

uses crt;

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

begin

clrscr;

readln(a,b,x);

t:=0;

for i:=a to b do 

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

writeln(t);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
NH
Xem chi tiết
NH
Xem chi tiết
TA
Xem chi tiết
DK
Xem chi tiết
HD
Xem chi tiết
H24
Xem chi tiết
NM
Xem chi tiết
TA
Xem chi tiết
C3
Xem chi tiết