Ответы
Ответ дал:
1
Ответ:
var n, S, M: integer;
begin
readln(M);
n := 1;
S := 0;
repeat
S := S + n;
n := n + 2;
until n > M;
writeln('S = ', S);
end.
Похожие вопросы
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад