
Saottan
5 год назад
Написать программу вычисления у=1/х для Pascal.
ОТВЕТЫ

Fletcher Wilfrid
Oct 24, 2020
var x,y : real;
begin
readLn(x);
if(x <> 0) then
begin
y := 1/x;
writeLn("y=", y);
end
else
writeLn("функция не существует");
end.
514
Нужен срочно ответ?
1 Зарегистрируйся
2 Пополни баланс баллов
3 Назначь баллы за ответ
Чем больше баллов, тем выше веротяность скорого ответа
Смежные вопросы: