Question

Напишите программу срочно!!!!

Answer 1

program yrav;
var
a: integer;
y: real;
begin
  writeln('Введите a: ');
  readln(a);
 
  if a=0 then
    writeln('Знаменатиль не может быть равен 0')
  else
    begin
      y:=(5/(a*(a-9)));
      writeln('y=', y);
    end;
end.

Answer 2

пояснить что-то?

Answer 3

Нет, сделать тоже задачу , у меня в профиле есть

Answer 4

Там за меня есть кому решить

Answer 5

Ну там не ответят , ну ладно

Answer 6

да уже ответили