Напишите программу срочно!!!!
Дополнительные материалы:
Ответ
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.
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.
voin123456:
Можешь помочь тоже ?
manamahkrit:
пояснить что-то?
voin123456:
Нет, сделать тоже задачу , у меня в профиле есть
manamahkrit:
Там за меня есть кому решить
voin123456:
Ну там не ответят , ну ладно
manamahkrit:
да уже ответили