Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся на 4. Программа получает на вход натуральные числа, количество введё...
Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся на 4. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 4.
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Похожие вопросы