maksim00789
01.08.2022 14:32

Напишите программу, которая в последовательности целых чисел определяет, каких чисел больше - четных или оканчивающихся на 3 - и на сколько. программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. введённые числа по модулю не превышают 30 000.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
зуляжансая86
08.10.2020 10:47
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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота