Есть ответ 👍

Нарисовать треугольник в pascal abc

203
288
Посмотреть ответы 1

Ответы на вопрос:


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.

Популярно: Информатика