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

Question

Информатика

Михайлушка

18 июля, 06:51

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

+4

Ответы (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.