В промежутке от 1 до 25 чётные увеличить вдвое, а нечётные уменьшить на 2. (решить в цикле)

Question

Информатика

Тимоха

12 июня, 21:17

В промежутке от 1 до 25 чётные увеличить вдвое, а нечётные уменьшить на 2. (решить в цикле)

+4

Ответы (1)

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

Петуха · Answer 1

Если я правильно поняла задачу, то вот:

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