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

Question

Информатика

Увар

2 мая, 13:43

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

+5

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