// PascalABC.NET 3.0, сборка 1128 begin var b:array[,] of integer:=((5,8,7,3),(-2,0,6,9),(2,1,12,4)); Writeln('Массив B: ',b); var n:=b.GetLength(0); var m:=b.GetLength(1); var imax:=0; var jmax:=0; var imin:=0; var jmin:=0; for var i:=0 to n-1 do for var j:=0 to m-1 do if b[i,j]>b[imax,jmax] then begin imax:=i; jmax:=j end else if b[i,j]<b[imin,jmin] then begin imin:=i; jmin:=j end; Swap(b[imin,jmin],b[imax,jmax]); Writeln('Результирующий массив: ',b) end.
Алгоритм 1) a x a = a² ⇒ b; b x a = a³ ⇒ результат 2) a x a = a² ⇒ b; b x b = a⁴ ⇒ c; c x c = a⁸ ⇒ c; c x b = a¹⁰ ⇒ результат
Программа на языке PascalABC.Net var a,b,c,y:real; begin Write('Введите число: '); Read(a); b:=a*a; y:=b*a; Writeln('Третья степень числа равна ',y); c:=b*b; c:=c*c; y:=b*c; Writeln('Десятая степень числа равна ',y) end.
Тестовые решения: Введите число: 2 Третья степень числа равна 8 Десятая степень числа равна 1024
Введите число: -13.594 Третья степень числа равна -2512.128188584 Десятая степень числа равна 215512594781.574
writeln('Меня зовутЯ учусь в девятом классе.');
end.