С клавиатуры вводятся последовательность из n целых чисел сколько чисел кратных числу p

Question

Информатика

Любомысл

1 мая, 19:02

С клавиатуры вводятся последовательность из n целых чисел сколько чисел кратных числу p

+5

Ответы (1)

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

Ромуля · Answer 1

Var n, p, k, s, i:integer;

begin

writeln (n) ;

readln (n) ;

writeln (p) ;

readln (p) ;

s:=0;

for i:=1 to n do

begin

writeln ('введи число') ;

readln (k) ;

if (k mod p = 0) then s:=s+1;

end;

writeln ('ответ ', s) ;

end.