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.
Answers & Comments
Verified answer
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.