program qwer;
var
	q:real;
	i,n:integer;
begin
	write('Введите n');
	read(n);
	q:=sqrt(2);
	for i:=1 to n-1 do
		q:=sqrt(q+2);
	write('Ответ: ');
	write(q:2:10);
	readln;
end.

Имеются N человек, и матрица A(N;N)
Для А справедливо A[i;j]=1, если i и j знают друг друга.
Можно ли разбить всех людей на 2 группы, так, чтоб в каждой группе были только незнакомые люди? Если да, то как.

#include <stdio.h>
#include <stdlib.h>
#include <iostream.h>
#include <conio.h>

#define N 4

int m[N][N];
void fill_m();
void out_m();


int cnt[N];

int main()
{
 fill_m();
 out_m();

 for(int i=0;i<N;i++) // idem po personam
 {
  for(int j=0;j<N;j++) // idem po znakomstvam
  {
  if(m[i][j]==1) cnt[i]++;
  }
 }
 int top_m=0; // bolshe vsego znak
 int max=0;
 for(i=0;i<N;i++)
 {
  if(cnt[i]>max) {max=cnt[i]; top_m=i;}
 }


 cout << "\n\nOdna gruppa:\n";
 for(int j=0;j<N;j++)
 {
  if(m[top_m][j]==0) cout << " " << j << " ";
 }
 cout << " & " << top_m << "\n";

 out_m();
getch();
return 0;
}

void fill_m()
{
 for(int i=0;i<N;i++)
 {
  for(int j=0;j<N;j++)
  {
   cout << i << " with " << j <<": ";
   cin >> m[i][j];
  }
  cout << "\n";
 }
}

void out_m()
{
 for(int i=0;i<N;i++)
 {
  for(int j=0;j<N;j++)
  {
  cout << m[i][j];
  }
 cout << "\n";
 }

}

program slova;
Uses Crt;
var
stroka, slovo,s : string;
i, max : integer;
begin
ClrScr;
WriteLn('введите текст с любыми разделителями ');
TextColor(Cyan);
ReadLn(stroka);
stroka:=stroka + '.';
i:= 1; TextColor(LightGreen);
while Length(stroka) <> 0 do
begin

if pos(copy(stroka,i,1),' ,.?!-:;') <> 0

then begin
slovo := copy(stroka,1,i-1);
if length(slovo)=4 then
begin
s:=s+' '+slovo[1];
end
else s:=s+' '+slovo;
delete(stroka,1,i);
i := 1;
end
else i := i+1;
end;
writeln(s);
ReadLn;

end.