Написать программу выводящую на экран значение переменной D=a/b, учитывая, что если делитель равен 0, то решений нет (a и b вводятся с клавиатуры) (Pascal)

Question

Ивася

24 апреля, 02:35

+1

Ответы (1)

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

Анастасиюшка · Answer 1

Var a, b, D:real;

begin

readln (a, b) ;

if b = 0 then

writeln ('Решений нет')

else

begin

D : = a/b;

writeln (D) ;

end;

end.