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

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

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

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

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

Ошибка: на ноль делить нельзя!