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

Question

Информатика

Олимпия

2 декабря, 21:07

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

+3

Ответы (1)

Знаете ответ на вопрос?

Панюха · Answer 1

Const

{Здесь задаются границы интервала}

First=1; {Нижняя граница}

Last=50; {Верхняя граница}

Var

S, X:Integer;

Begin

S:=0;

X:=First;

If X Mod 20 Then Inc (X) ;

Repeat

If X<=Last Then Inc (S, X) ;

Inc (X, 2) ;

Until X>50;

WriteLn ('SUM=', S) ;

End.