Написать программу выводящую на экран значение переменной D=a/b,учитывая,что если делитель равен 0,то решений нет (a и b вводятся с клавиатуры) (Pascal)
Answers & Comments
pacixor
Var a, b, D:real; begin readln(a, b); if b = 0 then writeln('Решений нет') else begin D := a/b; writeln(D); end; end.
Answers & Comments
begin
readln(a, b);
if b = 0 then
writeln('Решений нет')
else
begin
D := a/b;
writeln(D);
end;
end.