Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Написать код программы на языке паскаль
Для вычисления значений функции типа y=SQR(l/x) напишите подпрограмму обработки ошибок.

Ответ оставил Гость

Var y,x,l:real; 
begin 
writeln(Введите значение l и x соотвественно); 
read(l,x); 
if x=0 then writeln(x не может быть равен нулю, так как дробь нельзя делить на ноль) 
else begin 
y:=sqr(l/x); 
writeln(y); 
end; 
end.