Найти минимальную из нечетных чисел с внедрением цикла Repeat

Найти минимальную из нечетных чисел с внедрением цикла Repeat

Задать свой вопрос
1 ответ
Const
Тут задаются границы интервала
First=1; Нижняя граница
Last=50; Верхняя граница
Var
S,X:Integer;
Begin
S:=0;
X:=First;
If X Mod 2lt;gt;0 Then Inc(X);
Repeat
If Xlt;=Last Then Inc(S,X);
Inc(X,2);
Until Xgt;50;
WriteLn('SUM=',S);
End.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт