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

Question

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

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.

Comments

код поправь в самом начале, а то он у тебя вместо предложения ввода переменных будет печатать значения переменных

---

writeln('n');
readln(n);
writeln('p');
readln(p);

---

Вот так?

---

да, молодец