Дано число, если оно отрицательное, то поменять знак, в противном случае увеличить в 2 раза (паскаль 8 кл)

Question

Милашка

12 марта, 00:00

+2

Ответы (1)

Знаете ответ?

Деонис · Answer 1

Var x: integer;

begin

writeln ('Введите число.') ;

Readln (x) ;

if x < 0 then

writeln (x * (-1))

else

writeln (2*x) ;

end.