Задано число, проверить,

если число положительное то его нужно удвоить, если число отрицательное

уменьшить в 2 раза, иначе оставить без изменения.

Question

Информатика

Аксентий

28 декабря, 15:07

Задано число, проверить,

если число положительное то его нужно удвоить, если число отрицательное

уменьшить в 2 раза, иначе оставить без изменения.

+4

Ответы (2)

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

Перегрина · Answer 1

Var x: real;

begin

readln (x) ;

if x>0 then x*=2 else if x<0 then x/=2;

writeln (x) ;

end.

Еленка · Answer 2

Var x: real;

begin

readln (x) ;

if x>=0 then x: = writeln (x*2) else x: = writeln (x/2) ;

end.

Второй вариант:

var x: real;

begin

readln (x) ;

if x>=0 then x:=x*2 else x: = x/2;

writeln (x)

end.

Задано число, проверить,если число положительное то его нужно удвоить, если число отрицательноеуменьшить в 2 раза, иначе оставить без изменения.

Задано число, проверить,

если число положительное то его нужно удвоить, если число отрицательное

уменьшить в 2 раза, иначе оставить без изменения.