Написать программу в паскале: 1. Удвоить заданное число, если оно положительное, утроить его, если оно отрицательно, и увеличит его на 1, если оно равно нулю.

Question

Устинья

20 декабря, 14:28

+5

Ответы (1)

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

Андрей · Answer 1

Var a:real;

begin

readln (a) ;

if a>0 then a:=a*2;

if a<0 then a:=a*3;

if a=0 then a:=a+1;

writeln (a)

end.