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