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

Паскаль

Question

Информатика

Ксюра

7 января, 11:28

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

Паскаль

+4

Ответы (1)

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

Фебния · Answer 1

Var

number, sum: integer;

begin

repeat

readln (number) ;

if (number mod 7 = 0) and (number mod 10 = 2) then

sum : = sum + number;

until number = 0;

writeln (sum) ;

end.