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

Question

Информатика

Кирюня

14 октября, 04:52

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

+1

Ответы (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.