На одну специальность в одном из вузов поступало 120 человек. абитуриенты сдавали три экзамена : по , по информатике и языку. сдали 60 человек, информатику 40. 30 абитуриентов сдали и информатику, 30 и язык, 25 информатику и язык. 20 человек сдали все 3 экзамена , а 40 человек провалили. сколько абитуриентов сдали язык . решите с кругов эйлера

Решение смотри во вложении.

Const
  n = 20;

var
  x: array[1..n] of integer;
  i, s: integer;

begin
  Randomize;
  s := 0;
  Write('Элементы массива: ');
  for i := 1 to n do
  begin
    x[i] := Random(101) - 50;
    Write(x[i]:5);
    if x[i] >= 0 then s := s + sqr(x[i])
  end;
  Writeln(#13#10, 'Сумма квадратов неотрицательных элементов равна ', s)
end.

Тестовое решение:
Элементы массива:   -29    1  -36   50  -29   31    4   28  -25   -1   17  -45  -48  -19  -49  -49  -30  -22    8   18
Сумма квадратов неотрицательных элементов равна 4939

В начале в строке находилось 333 троек по 8 плюс одна 8, всего 1000 восьмерок.
1. При выполнения цикла каждая из троек 8 будет заменена на одну 9. Значит у нас получится строка длиной в 334 символа, где 333 девятки и последний символ - восьмерка
2. Далее 333 девятки заменятся на 111 восьмерок плюс последняя восьмерка - всего получим 112 восьмерок
3. Из 112 восьмерок получится 37 девяток и одна восьмерка
4. И 37 девяток получим 12 восьмерок плюс одна девятка и плюс последняя восьмерка
5. 12 восьмерок дадут 4 девятки плюс последние 9 и 8
6. И наконец получаем строку 8998
ответ: 8998