Паскаль информатика 60 баллов
Приложения:
![](https://st.uroker.com/files/71e/71ed075b2980e7f1bf23a4c5f0f34574.png)
[https://discord.gg/M98g8q3] dołączcie, bo się starałem, i przyszedł jakiś gość co mi 90% serwera zniszczył wiec proszę dołączyć błagam proszę Was tak się starałem żeby ten serwer miał dużo członków, kanały itd. Błagam o dołączenie i błagam publikujcie ten serwer Discord, dołączcie i pomagajcie zapraszając innych było fajny serwer ale przyszedł gość co mi wszystko zniszczył :cry:
Ответы
Ответ дал:
0
// PascalABC.NET 3.6
begin
var x := ReadReal('x =');
var Y := x ** 3 - (x * x - x + 3) / Sqrt(x);
Print(Y)
end.
Ответ дал:
0
Программа:
program functions;
var c:real;
function x(a: real; n: real):real;
begin
a:= power(a, n);
x:= a;
end;
function frac(a: real; b:real):real;
var c: real;
begin
c:= a/b;
frac:= c;
end;
function m_sqrt(n: integer):real;
begin
m_sqrt:= 1/n;
end;
begin
write(
'Введите число: '
);
readln(c);
writeln(
'Значение функции Y(',c,'): ',
x(c,3)-
frac(
x(c,2)-c+3,
x(c,m_sqrt(2))
)
:0:3);
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад
[https://discord.gg/M98g8q3] dołączcie, bo się starałem, i przyszedł jakiś gość co mi 90% serwera zniszczył wiec proszę dołączyć błagam proszę Was tak się starałem żeby ten serwer miał dużo członków, kanały itd. Błagam o dołączenie i błagam publikujcie ten serwer Discord, dołączcie i pomagajcie zapraszając innych było fajny serwer ale przyszedł gość co mi wszystko zniszczył :cry: