Вычислить сумму чисел кратных трем из 10 введенных с клавиатуры
Вычислить сумму чисел кратных трем из 10 введенных с клавиатуры
Гость
Ответ(ы) на вопрос:
Гостьvar
s, n, i: integer;
begin
for i := 1 to 10 do
begin
readln(n);
if n mod 3 = 0 then
s := s + n;
end;
writeln(s);
end.
Не нашли ответ?
Похожие вопросы