№1
var
x :integer;
begin
readln(x);
writeln('y =',(1)/(x-1));
end.
№2
a,b :integer;
readln(a,b);
writeln('',a*a-b*b);
Объяснение:
Как автор просил.
№1
var
x :integer;
begin
readln(x);
writeln('y =',(1)/(x-1));
end.
№2
var
a,b :integer;
begin
readln(a,b);
writeln('',a*a-b*b);
end.
Объяснение:
Как автор просил.