2.Напишите программу, которая в последовательности целых чисел определяет, каких чисел больше — чётных или оканчивающихся на 3 — и насколько. Программа

Question

Информатика: 2.Напишите программу, которая в последовательности целых чисел определяет, каких чисел больше — чётных или оканчивающихся на 3 — и насколько. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести сообщение и одно число: каких чисел больше — чётных или оканчивающихся

Шмигельська · Answer

var a,b,c:Integer;beginwhile (true) dobeginRead(a);if a = 0 thenbreakelseif a mod 2 = 0 thenb+=1elseif a mod 10 = 3 thenc+=1;end;if b c thenWriteLn( Чисел оканчивающихся на 3 больше на +(c-b)+ раз(а) )else if c b thenWriteLn( Четных чисел больше на +(b-c)+ раз(а) )elseWriteLn( Таких чисел нет. );end.Объяснение:...

Популярные вопросы