Регистрация
рай34
29.09.2020 09:36
Информатика
Есть ответ 👍

Паскаль, цикл while вводятся числа, посчитать кол-во чисел, которые делятся на 2 и которые делятся на 3. ввод закончить 0. вывести на экран кол-во чисел , делящихся на 2 и кол-во чисел, делящихся на 3. ,

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

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

варвара176
варвара176
4,5(8 оценок)
N, i, k, d, t: integer; begin while n< > 0 do readln(n); if (n mod 2)=0 then d: =d+1; if (n mod 3)=0 then t: =t+1; writeln(d,' ',t); readln; end.
6Мицуки6
6Мицуки6
4,6(42 оценок)

Не видно

Объяснение:

Популярно: Информатика