1.Реализовать программу, определяющую, имеет ли число целочисленный корень третьей степени.
# include <iostream>
# include <math.h>
using namespace std;
void main ()
{
float a,*d,b;
d=new float;
cin >> a;
b=(1/3.0);
a=pow(a,b);
a=modf(a,d);
if (a==0) { cout <<"imeet";} else cout<<"ne imeet";
system("PAUSE");}
2.Дана матрица, отсортировать столбцы по убыванию среднего значения элементов.
program uraekzamen
integer, allocatable :: b(:,:),a(:)
read(*,*)m,n
allocate(b(m,n))
allocate(a(m))
do i=1,m
read(*,*)(b(i,j),j=1,n)
end do
do i=1,n-1
do j=1,n-1
if ((sum(b(:,j)))/n .LT. (sum(b(:,j+1)))/n) then
a=b(:,j)
b(:,j)=b(:,j+1)
b(:,j+1)=a
end if
end do
end do
do i=1,m
write(*,*)(b(i,j),j=1,n)
end do
pause
end
