inflate2. Напишите программу, которая в последовательности целых чиселопределяет, каких чисел больше — чётных или оканчивающихся на 3 — инаКак узнать сколько. Программа получает на вход целые числа, количество введённыхчисел неизвестно, последовательность чисел заканчивается числом 0 (0 —признак окончания ввода, не входит в последовательность). Количество чиселне превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести сообщение и одно число: каких чисел больше —чётных или оканчивающихся на 3 — и на Как узнать сколько. Если количество чиселодинаково, то вывести это количество. Пример работы программы:Входные данные 1821312850Выходные данные чётных больше на 2 числарешить paython посчитайте пжжпжпжпж а то мне капец пж посчитайте ДАЮ 50поинтов
ответы: 1
Зарегистрируйтесь, чтобы добавить ответ
Ответ:
var a,b,c:Integer;
begin
while (true) do
begin
Read(a);
if a = 0 then
break
else
if a mod 2 = 0 then
b+=1
else
if a mod 10 = 3 then
c+=1;
end;
if b<c then
WriteLn('Чисел оканчивающихся на 3 больше на '+(c-b)+' раз(а)')
else if c<b then
WriteLn('Четных чисел больше на '+(b-c)+' раз(а)')
else
WriteLn('Таких чисел нет. ');
end.
496
actЧтобы ответить необходимо зарегистрироваться.
