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

Question

Информатика

Анисья

27 марта, 09:38

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

+1

Ответы (1)

Знаете ответ на вопрос?

Симеон · 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 ((a99) and ((a mod a) = o) then begin

write (a) ;

k:=k+1;

end;

end;

write (k)

end.