Бажен
6 год назад
В промежутке от 1 до 25 чётные увеличить вдвое, а нечётные уменьшить на 2. (решить в цикле)
ОТВЕТЫ
Naigkavlu
Aug 1, 2019
Если я правильно поняла задачу, то вот:
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
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
85
