Var
a,b,c,y,x,:real;
function stup(x:real;n:integer):real;
var
i:integer;
k:real;
begin
k:=1;
for i:=1 to n do k:=k*x;
stup:=k;
end;
begin
writeln ('Введите x (число должно быть положительным)'); readln (x);
if x>=0 then begin
a:=stup(x,6); b:=stup(x-5,3); c:=stup(2*x+1,5);
y:=(a*b)/c;
Writeln ('y=',y:5:2);
end
end.
Алексей ,так как а-это согласна , и в слове Алексей 7 букв.
Ну наверное на монитор.
Еще можно через принтер.
Эл. там только положительный заряд, пр. все зряды
Var n,i:integer;
begin
for n:=2 to 99 do
begin
for i:=2 to 99 do
begin
if (n+i)=(n*i) then writeln(n,' ',i);
end;
end;
end.<span>
</span>