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);<span>
end.</span>

0 0

3 года назад

Напишите проблемы информационного общества. Заранее огромное спасиибо :)

Vlad321456 [7]

МММ... а зачем написать????

0 0

4 года назад

Прочитать ещё 2 ответа

Прошу помогите. Пользователь вводит с клавиатуры две границы диапазона и число. Если число не попадает в диапазон, программа про

Георгий-76

Для с++ это будет выглядеть примерно так

int a, b, c; // создание переменных

cin >> a; // ввод наименьшего числа

cin >> b; // ввод наибольшего числа

cin >> c; // ввод числа, которое сравнивается

for (,,) // цикл

{

if (c > a and c < b) // Если

break // Выход из цикла

}

Надеюсь, помог

0 0

4 года назад

Помогите по информатике пжПриведите два три примера слов омонимов выражающие различные понятия.Катя Галя Соня и Тамара родились

Сеня24 [35]

Галя- 2 марта, Соня - 20 марта, Катя - 2 июля,Тамара- 17 мая

0 0

4 года назад