Однажды, сидя в чайхане, ходжа насреддин заинтересовался беседой четырёх мужчин, сидевших рядом с ним. это была интересная компания, так как мужчины говорили между собой на нескольких языках и часто один переводил другому сказанное третьим. вскоре ходже стало ясно, как зовут каждого из четырёх. в своей беседе мужчины использовали четыре языка: армянский, персидский, греческий и турецкий, однако не было языка, который был бы известен всем. при этом каждый из них владел двумя языками. самый младший из четырёх, салал, не знал персидского, но был переводчиком, когда мохаммед хотел объясниться со стариком абдулой, прекрасно владевшим персидским. мохаммед не только говорил на своём родном турецком языке, но и свободно разговаривал с юсуфом, не знавшим по-турецки ни слова. ни салал, ни абдула, ни юсуф не знали языка, на котором могли бы объясниться все трое между собой. ходжа насреддин заметил, что среди собеседников не было ни одного, кто владел бы одновременно и армянским, и турецким. какими же языками владел каждый из четверых мужчин?

Составим таблицу, и заполним её ячейки плюсами и минусами (запись "-2" обозначает "ставим минус в ячейку 2"):

1} С не знает перc: -2  

2} для М родной тур: +8

3} Ю не знает по-тур ни слова:  -16

4} М нужен переводчик, чтоб говорить с Ю, значит Ю не знает тур: -12

5} никого, кто владел бы одновременно и арм, и тур -> М не знает арм: -5

6} А говорит по-перс: +10

7} C переводчик между М и А, но А говорит по перс, значит М не знает перс: -6

8} второй язык М - греческий: +7

9} М и А нуждаются в переводчике, значит А не знает гре: -11

10} второй язык А - арм: +9

11} С переводил для А, значит он знает арм: +1

12} нет общего языка для С А Ю, значит Ю не знат арм: -13

13} Ю знает два языка - перс и гре: +14 +15

14} нет общего языка для С А Ю, значит С не знает гре: -3

15} второй язык С - тур: +4

Салал - армянский и турецкий

Мохаммед - греческий и турецкий

Абдулла - армянский и персидский

Юсуф - персидский и греческий

Type  mas = array[1..8] of integer;
var
  A, F, Q: mas;
  C:array[1..8] of real;
  i: integer;
function M(x,y:real):real;
begin
Result:=(x*x+y*x)/2+sin(x*y)
end;
begin 
clrscr; 
writeln('Массив первый:'); 
for i := 1 to 8 do
  begin
    A[i] := random(10);
    write(A[i]:4);
  end; 
writeln; 
writeln('Массив второй :'); 
for i := 1 to 8 do
  begin
    F[i] := random(10) ;
    write(F[i]:4);
  end; 
writeln; 
writeln('Массив третий :'); 
for i := 1 to 8 do
  begin
    Q[i] := random(10);
    write(Q[i]:4);
  end;
writeln; 
writeln('Массив четвертый:'); 
for i := 1 to 8 do
  begin
    C[i] := M(A[i],F[i])+M(Q[i],F[i])+M(A[i],Q[i]);
    write(C[i]:6:1);
  end; 
writeln;
end.

1.

const

  quantity = 18;

var

  res, d: integer;

function sum(a, b: integer): integer;

begin

  sum := a + b;

end;

begin

  writeln('Введите число D: ');

  readln(d);

  res := sum(d, quantity);

  writeln(res);

end.

2.

const

  x = 1.0;

var

  square, radius, Pi_num: real;

function ArcTan(X: Real): Real;

begin

  ArcTan := (sin(x) / cos(x));

end;

function ray(square: real): real;

begin

  ray := sqrt(square / Pi_num);

end;

begin

  Pi_num := ArcTan(x) * 2;

  writeln('Введите площадь окружности: ');

  readln(square);

  radius := ray(square);

  writeln(radius);

end.