Вопрос Составить (в паскале) программу делящую положительное число на 2 и отрицательное на 3.

[ilya1332003]

Составить (в паскале) программу делящую положительное число на 2 и отрицательное на 3.

 

[diraptor]

readln(a); if a > 0 then a /= 2 else a /= 3;

 

[sereaga3232]

var a:real; begin readln(a); writeln(a/(ord(a>=0)*2+ord(a<0)*3)); readln end.