1.Реализовать программу, определяющую, имеет ли число целочисленный корень.
# include <iostream>
using namespace std;
void main ()
{
float a,*d;
d=new float;
cin >> a;
a=sqrt(a);
a=modf(a,d);
if (a==0) { cout <<"imeet";} else cout<<"ne imeet";
system("PAUSE");}
2.Дан файл, заполненный случайными целыми числами. Из данной последовательности удалить по пять самых меньших чисел и записать в другой файл. Входящий файл input.txt, вывод осуществляется в файл output.txt.
program uraekzamen
integer, allocatable :: yanc(:)
open (1,file="input.txt")
naxui=0
do while (.NOT.eof(1))
read(1,*)ii
naxui=naxui+1
end do
close(1)
allocate(yanc(naxui))
open (1,file="input.txt")
do idi=1,naxui
read(1,*)naxuui
yanc(idi)=naxuui
end do
do i=1,5
kk=yanc(1)
do idi=1,naxui
k=yanc(idi)
if (k<=kk) then
kk=k
pohui=idi
end if
end do
do zaebal=pohui,(naxui-1)
yanc(zaebal)=yanc(zaebal+1)
end do
naxui=naxui-1
end do
close(1)
open (1,file="output.txt")
write(1,*)(yanc(idi),idi=1,naxui)
close(1)
pause
end