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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.