Question

Вычислить сумму чисел: S=1+3+5+7+...+M

Решить в Паскаль
Оператор repeat

Answer 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.