Ответы
Ответ дал:
1
Ответ:
паскаль
Объяснение:
var
n, i, s: integer;
begin
Write('Введите число n >> ');
ReadLn(n);
i := 1;
while i <= n do
begin
s := s + i;
i := i + 3;
end;
WriteLn('Сумма равна S= ', s);
end.
Вас заинтересует
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад