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

Question

Информатика

Адамыч

6 ноября, 13:19

С клавиатуры вводится 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.