lty220051
18.10.2020 20:26

Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающееся на 6. программа получает на вход натуральные чисела и колличество введеных чисел не известно,в последовательность чисел заканчивается числом 0 ( это признак окончания ввода, не входит в последовательность. количество чисел не превышает 100. введённые числа не превышают 300 программа должна вывести одно число: сумму всех чисел кратных 6 и окончивающихся на 6.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
MariKharlova
06.10.2020 13:44
Var A,S:integer;
Begin
S:=0;
Repeat
Read(A);
if (A mod 6 = 0)and(A mod 10 = 6) then S:=S+A;
Until A = 0;
Write(S)
End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота