1. Составьте программу, которая из слова «МАНИПУЛЯТОР» составляет слова: «МОТОР», «ПИЛА», «ТОПОР». 2. Составьте программу, которая из слов «РОЗА», «ПЛОТТЕР», «ИНТЕРЬЕР» получает слово «ПРИНТЕР». 3. Составьте программу, которая в формуле, заданной с клавиатуры, количество знаков умножения (* Phyton

1. Допустим,что учитель сказал правду Савелию, тогда у Савелия оценка 4 или 3. У Виталия тогда оценка 3, так как учитель ошибся, а у Аркадия или 5 или 4.
Савелий-4
Виталий-3
Аркадий-5.
ЭТО ВОЗМОЖНО!

2. Допустим, что учитель сказал правду Виталию, тогда у него оценка 4 или 5, тогда у Савелия 5, а у Аркадия 4 или 5, так как учитель ошибся.
Савелий-5
Виталий-4 или 5
Аркадий-4 или 5
НЕ У КОГО НЕТ ОЦЕНКИ 3, А ЭТОГО БЫТЬ НЕ МОЖЕТ

3.Допустим, что учитель сказал правду Аркадию, тогда у него оценка 3, тогда у Савелия 3 или 4, так как учитель ошибся, а у Виталия оценка 3, так как учитель ошибся.
Савелий-3 или 4
Виталий-3
Аркадий-3
НЕ У КОГО НЕТ ОЦЕНКИ 5,А ЭТОГО БЫТЬ НЕ МОЖЕТ.
ответ:
Савелий-4
Виталий-3
Аркадий-5

PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018

begin

 var count := 0;

 var a := Range(ReadInteger('a='), ReadInteger('b='))

                              .Select(t -> t.ToString.JoinIntoString(' ').ToIntegers)

                                                             .Where(t -> t.Count.IsEven);

 foreach var x in a do

 begin

   var (b, i) := (true, 0);

   while (b) and (i < x.Length - 1) do

   begin

     if (x[i].IsOdd and x[i + 1].IsOdd) or (x[i].IsEven and x[i + 1].IsEven)  

       then b := false;

     inc(i, 2);

   end;

   if (i = x.Length) and (b) then inc(count);  

 end;

 count.Println;

end.