введите два числа х у если второе число не равно нулю то первое число разделить на второе и выдать ответ иначе вывести сообщение на ноль делить нельзя
Ответы
Ответ дал:
0
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
Ошибка: на ноль делить нельзя!
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
Ошибка: на ноль делить нельзя!
Вас заинтересует
1 год назад
5 лет назад
5 лет назад
8 лет назад
8 лет назад
9 лет назад