ablozhevich
13.04.2020 00:14

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
llkk2003
27.09.2020 10:53
Program yeah;vara,b:integer;beginwriteln('введите числа ');b:=0;repeatread(a);if (a mod 10<>6) and (a div 10<>6) thenbegin b:=b+a;end;until a=0;writeln(b);end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота