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

Question

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

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.

Comments

а еще поможешь?

---

смотря что надо

---

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

---

так же как и предыдуший, только в условии проверяешь деление на 2. If (n mod 2 =0) /. И в той программе поменяй div на mod