С клавиатуры вводятся последовательность из n целых чисел сколько чисел кратных числу p
С клавиатуры вводятся последовательность из n целых чисел сколько чисел кратных числу p
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы