Question

Задано число, проверить,
если число положительное то его нужно удвоить, если число отрицательное
уменьшить в 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

Полагаешь? Скопируй мой код и проверь. Перед тем, как спорить, прочитай документацию по языку. Одиночные условия скобками отождествлять не обязательно. Условия в условиях у меня нет - оператор else if не является вложенным.

Answer 3

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. 

Answer 4

а в чем разница

Answer 5

аааа понял

Answer 6

спс