Напишите программу, которая в последовательности целых чисел определяет, каких чисел больше - четных или оканчивающихся на 3 - и на сколько. программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. введённые числа по модулю не превышают 30 000.
Почтиматематик2894
3
22.09.2019 22:40
0
Другие вопросы по теме Информатика
Mariyam005
06.06.2019 06:40
ааа513
06.06.2019 06:40
zarinazaac30
06.06.2019 06:40
natusy2411
06.06.2019 06:40
рорлд
06.06.2019 06:40
andkrutoi2018
06.06.2019 06:50
Anonimka89
06.06.2019 06:50
zhumanovAblai
06.06.2019 06:50
Популярные вопросы
- Климатические условия в разных частях франции ( климатические пояса, средние...
3 - Знайти найбильше та найменьше значення функцій y＝x-1/3x∧3...
3 - Стосунки між різними поколіннями в творі л ворининої ,, таємне товариство боягузів...
1 - ответьте , следующий урок надо, лучший ответ и...
1 - Срочто до 13: на рисунке изображен график зависимости стоимости яблок от их массы...
1 - Обратить множественное число существительных book, baby, child, money, deer,...
1 - Рассмотри схему работы вычислительной машины...
3 - Высота ah ромба abcd делит его сторону dc на отрезки dh=4 и hc=1 найдите площадь...
3 - Якими одиницями вимірювання опір провідника...
2 - Складіть план виступу з теми особливості кримінальної відповідальності неповнолітніх...
2
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.