напишите программу которая в последовательности натуральных чисел определяет сумму всех чисел кратных 6 и оканчивающихся на 4. Программа получает на ввод натуральные числа, количество введенных чисел неизвестно. последовательность чисел заканчивается 0

Question

Информатика

Кирюня

17 июля, 06:42

напишите программу которая в последовательности натуральных чисел определяет сумму всех чисел кратных 6 и оканчивающихся на 4. Программа получает на ввод натуральные числа, количество введенных чисел неизвестно. последовательность чисел заканчивается 0

+4

Ответы (1)

Знаете ответ на вопрос?

Петрония · Answer 1

Var

num, sum: integer;

begin

repeat

readln (num) ;

if (num mod 4 = 0) and (num mod 10 = 6) then sum : = sum + num;

until num = 0;

writeln (sum) ;

end.