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

тимур370 тимур370    3   29.07.2019 09:00    0

Ответы
qq503 qq503  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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика