С клавиатуры вводится 10 натуральных чисел. Напечатать сумму тех, которые не делятся на 3.

Question

Информатика

Коняша

24 марта, 23:41

С клавиатуры вводится 10 натуральных чисел. Напечатать сумму тех, которые не делятся на 3.

+1

Ответы (1)

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

Фомаида · Answer 1

Var

i, sum, n : integer;

begin

sum : = 0;

for i:=1 to 10 do

begin

write ("Введите число:") ;

readln (n) ;

if (n div 3 0) then sum : = sum + n;

end;

Writeln ("Сумма = ", sum) ;

end.