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

1

Ответы и объяснения

  • Участник Знаний
2014-03-21T12:00:51+00:00
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.