В промежутке от 1 до 25 чётные увеличить вдвое, а нечётные уменьшить на 2. (решить в ц?
В промежутке от 1 до 25 чётные увеличить вдвое, а нечётные уменьшить на 2. (решить в ц??кле)
Гость
Ответ(ы) на вопрос:
Гость Если я правильно поняла задачу, то вот:
var a: integer; i:integer; begin a:=0; for i:=1 to 25 do begin a:=a+1; if a mod 2=0 then write (a*2,' ') else write (a-2,' '); end;end.
Выводит:-1 4 1 8 3 12 5 16 7 20 9 24 11 28 13 32 15 36 17 40 19 44 21 48 23
Не нашли ответ?
Похожие вопросы