Регистрация
Войти
Стать экспертом Правила
Информатика

Пожалуйста посчитайте!Вот короче прога для вычисления выражения, уже составлена(снизу) на PascalABC.NET, надо ввести оператор if.Мне училка сказала, вот введи оператор if, потому что если введём y=7, то выведет ответ как "бесконечность", а как мы знаем ещё на 0 делить нельзя. Так вот надо ввести оператор if чтоб при вводе y=7 он нам выдал надпись, что решения нет(на 0 делить нельзя).Если вы меня поняли, то попытайтесь пожалуйста сделать.Мне училка сказала что там ещё 2 команды дописать надо и всё!Спасибо!Сама прога на PascalABC.NET :vara,y:double;beginwrite('Введите a и y:');readln(a,y);write('z =',(5+a)/(7-y));end.

ОТВЕТЫ
var
a,y:double;
begin
write('Введите a и y:');
readln(a,y);
if (y=7) then 
write('Решения нет') 
else
write('z =',(5+a)/(7-y));
end.
296
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам