Kirillf2006
26.05.2021 07:11

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
arturimbo
03.10.2020 08:31
Var 
n, c: integer;
begin 
repeat   
write('Число - ');   
readln(n);   
if ((n mod 6) = 0) and ((n mod 4) = 0) then     
c := c + n; 
until n = 0; 
Write('Сумма всех чисел, кратных 6 и оканчивающихся на 4 равна ', c);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота