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

Question

Информатика

Севастьян

15 августа, 15:32

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

+4

Ответы (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.