Напишите программку на Паскале, которая обретает y=a/b, когда b равен 0

Напишите программку на Паскале, которая обретает y=a/b, когда b равен 0 и b не равен 0

Задать свой вопрос
2 ответа
var a,b:real;
begin
readln(a,b);
if b=0 then writeln('Разделенье на 0')
else writeln('y = ',a/b);
end.

Пример:
5 2
y = 2.500000000000000e+00
Program abc;var y,a,b:real;beginreadln(a,b);y:=a/b;if b=0 then writeln('Ошибка данных')else writeln(y);end.
Алла Булавкина
program abc;var y,a,b:real;beginreadln(a,b);y:=a/b;if b=0 then writeln('Ошибка данных')else writeln(y);end.
Роман Балошин
Немножко подправил, чтобы глаза не резало)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт