Определить минимальную из нечетных чисел с использованием цикла Repeat
Answers & Comments
yanaivleva2016
Const {Здесь задаются границы интервала} First=1; {Нижняя граница} Last=50; {Верхняя граница} Var S,X:Integer; Begin S:=0; X:=First; If X Mod 2<>0 Then Inc(X); Repeat If X<=Last Then Inc(S,X); Inc(X,2); Until X>50; WriteLn('SUM=',S); End.
Answers & Comments
{Здесь задаются границы интервала}
First=1; {Нижняя граница}
Last=50; {Верхняя граница}
Var
S,X:Integer;
Begin
S:=0;
X:=First;
If X Mod 2<>0 Then Inc(X);
Repeat
If X<=Last Then Inc(S,X);
Inc(X,2);
Until X>50;
WriteLn('SUM=',S);
End.