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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

var

x,y:integer;

begin

writeln(‘Введите число’);

readln(x);

if x<0 then

y:=100/x

else

y:=100*x;

writeln(‘Полученное число =’, y);

end.