Ответы
Ответ дал:
0
var
i, s: longint;
begin
s := 0;
for i := 100 to 999 do
if (i mod 9 = 0) or (i mod 100 = 5) then s := s + i;
{Если число делится на 9, то оно делится и на 3}
Writeln('Сумма равна ', s)
end.
Результат выполнения программы:
Сумма равна 59490
i, s: longint;
begin
s := 0;
for i := 100 to 999 do
if (i mod 9 = 0) or (i mod 100 = 5) then s := s + i;
{Если число делится на 9, то оно делится и на 3}
Writeln('Сумма равна ', s)
end.
Результат выполнения программы:
Сумма равна 59490
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад