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

Question

Информатика

Гоша

14 марта, 11:06

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

+3

Ответы (1)

Знаете ответ на вопрос?

Лиля · Answer 1

Var

x, y:integer;

begin

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

readln (x) ;

if x<0 then

y:=100/x

else

y:=100*x;

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

end.