<span> новый международный стандарт Unicode, который отводит два байта, и поэтому с его помощью можно закодировать не 256, а 65536 различных символов
соотвественно это 4 </span>
Молодец! .....................................
По логике:
Ветер гуляет по морю
Ветер подгоняет кораблик
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.