Написать программу на языке 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.
Не нашли ответ?
Похожие вопросы