Var
n, x: longint;
begin
readln(n);
x := round(sqrt(n));
if x * x = n then
writeln('YES')
else
writeln('NO');
end.
1000 байт
1 кбайт
1024 бита
1 байт
1 бит
Ответ:
program znanija
var arr: array [1..30] of integer;
var i: integer;
begin
for i:=0 to 30 do
begin
readln (arr [i]);
end;
for i:=0 to 30 do
begin
if arr[i] > 10 then
begin
writeln (arr [i]);
end;
end;
end.
Или линк: https://pastebin.com/Jm5R4Ehp
Y = 3 * Sqr(4 * x / (1 + x)) + 2
y = (3 + x) / (8 - 4 * Sqr(x))
y = 1 / 5 + 1 / x + 1 / x ^ 2 + 1 / (x - 1) + (x + 2) / 2 / x
y = x ^ 3 + (x ^ 2 + 1) ^ 3 + 4 * Sqr(Sqr(x + 4))