Вы используете для этой цели? 5. Использование табличной модели часто облегчает решение инфор-
мационной задачи. В следующей таблице закрещенные клетки в расписании
занятий соответствуют урокам физкультуры в 7-9 классах школы.
урока
76 8-а
8-6
9-6
1
2
3
5
6
Выполните следующие задания:
- определите, какое минимальное количество учителей физкультуры тре-
буется при таком расписании;
найдите один из вариантов расписания, при котором можно обойтись
двумя учителями физкультуры; 4 -
в школе три учителя физкультуры: Асанов, Осмонов, Садыков; распре-
делите между ними уроки в таблице так, чтобы ни у кого не было «окон» (ny-
стых урококв);
распределите между тремя учителями уроки так, чтобы нагрузка у всех
была одинаковой.
в Ромпьютерной сети уаповым авпается сервер с
плмагите​

Допустим, что первый болельщик был прав в том, что Наташа займет 1 место. Следовательно, она не может занять второе место, из чего в свою очередь следует, что третий болельщик не был прав в том, что Наташа займет второе место, значит, он был прав в том, что Рита займет третье место. Аналогично, Рита не может занять четвертое место, так как предположительно она на третьем, значит второй болельщик был прав в том, что Люда займет второе место. Остается Маша - четвертое место. Все болельщики правы лишь в одном из своих прогнозов, условие выполняется. Следовательно ответ: 1 место - Наташа, 2 место - Люда, 3 место - Рита и 4 место - Маша

// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!

procedure Love(n:integer);
begin
  Writeln(n*('Я люблю ПАСКАЛЬ'+NewLine))
end;

begin
  Love(ReadInteger('n='))
end.

Пример
n= 5
Я люблю ПАСКАЛЬ
Я люблю ПАСКАЛЬ
Я люблю ПАСКАЛЬ
Я люблю ПАСКАЛЬ
Я люблю ПАСКАЛЬ

// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!

procedure LinEqu(a,b:real);
begin
  if a=0 then
    if b=0 then Writeln('Решений бесконечно много')
    else Writeln('решений нет')
  else Writeln('x=',-b/a)
end;

begin
  var a,b:real;
  Write('Введите а и b: '); Read(a,b);
  LinEqu(a,b)
end.

Пример
Введите а и b: 18.45 -12
x=0.650406504065041