Question

введите два числа х у если второе число не равно нулю то первое число разделить на второе и выдать ответ иначе вывести сообщение на ноль делить нельзя

Answer 1

Var x,y:real;
Begin
Write('x = ');ReadLn(x);
Write('y = ');ReadLn(y);
if y = 0 then Write('Ошибка: на ноль делить нельзя!')
else Write(x,'/',y,' = ',x/y)
End.



Примеры работы программы:

x = 1
y = 3
1/3 = 0.333333333333333

x = 9
y = 0
Ошибка: на ноль делить нельзя!