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

146

231

Посмотреть ответы 2

Ответы на вопрос:

данил2908

Информатика

4,7(34 оценок)

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.

Topolok121289

Информатика

4,7(39 оценок)

Если петя прав, то и вася прав (если файлов не больше 10, то тем более не больше 11), чего по условию быть не может. тогда петя не прав, а вася прав. число зараженных файлов более десяти (отрицание слов пети) и не более одиннадцати. тогда их ровно одиннадцать.