Вычислить y=100/x, если x меньше 0; y=100*x, если x больше =0, с помощью программы Паскаль

Question

Вычислить y=100/x, если x<0; y=100*x, если x>=0, с помощью программы Паскаль

Гость

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

Accepted Answer

var x,y:integer; begin writeln('Введите число'); readln(x); if x<0 then y:=100/x else y:=100*x; writeln('Полученное число =', y); end.