Напишите программу в среде программирования Турбо Паскаль, которая в последовательности натуральных чисел вычисляет сумму всех однозначных чисел, кратных 3. Программа получает на вход натуральные числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0-признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введенные числа не превышают 30000. Программа должна вывести одно число: сумму всех однозначных чисел, кратных 3.

Question

Федула

1 декабря, 14:00

+1

Ответы (1)

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

Настася · Answer 1

Var s, n:integer;

begin

repeat

readln (n) ;

if (n mod 3=0) and (n<10) then s:=s+n;

until n=0;

writeln ('S=', s) ;

end.