Определить сколько трехзначных чисел кратны m вывести их ** экран

Question

Определить сколько трехзначных чисел кратны m вывести их на экран

Answer 1

Это Паскаль ?
Если да,то вот:
Кратные m- ((a mod m)=0
program Primer;
uses Crt;
var a,k,n,i:integer;
begin
k:=0;
read(n);
for i:=1 to n do begin
read(a);
If ((a<1000) and (a>99) and ((a mod a)=o) then begin
write(a);
k:=k+1;
end;
end;
write(k)
end.

Comments

я перепутала,там a mod m

---

спасибо