Составить (в паскале) программу делящую положительное число на 2 и отрицательное на 3.
Вопрос Составить (в паскале) программу делящую положительное число на 2 и отрицательное на 3.
- Автор темы ilya1332003
- Дата начала
readln(a); if a > 0 then a /= 2 else a /= 3;
var a:real; begin readln(a); writeln(a/(ord(a>=0)*2+ord(a<0)*3)); readln end.
- Статус