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

Question

Гамселя

3 сентября, 22:56

+1

Ответы (1)

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

Маджд · Answer 1

Var x: integer;

begin

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

Readln (x) ;

if x < 0 then

writeln (x * (-1))

else

writeln (2*x) ;

end.