Напишите программку безотлагательно!!!!

Напишите программку безотлагательно!!!!

Задать свой вопрос
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.
Потаихин Леша
Можешь помочь тоже ?
Милена Медяник
объяснить что-то?
Дюшикян Валерий
Нет, сделать тоже задачку , у меня в профиле есть
Сергей Гуляев
Там за меня есть кому решить
Яна Майдебура
Ну там не ответят , ну хорошо
Милена Гемонова
да теснее ответили
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт