Написать программу на языке Pascal (ABC). Номер 20.2

Написать программу на языке Pascal (ABC). Номер 20.2
Гость
Ответ(ы) на вопрос:
Гость
var  x, k3, k5: integer; begin   repeat     readln(x);     if (x mod 3 = 0) and (x > 0) then        inc(k3);     if (x mod 5 = 0) and (x > 0) then        inc(k5);   until x = 0;   if k3 > k5 then      writeln('Кратных 3 больше на ', k3-k5, ' числа')   else   if k5 > k3 then      writeln('Кратных 5 больше на ', k5-k3, ' числа')   else      writeln('Одинаково'); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы