3емкости 8 литров 5 литров и 12 литров как с их набрать ровно 1литров

сначала нужно наполнить емкости по 8 и 5 л (это 13 л в итоге) , перелить из них воду в 12л, там останется 1 л. ну этот 1л плюс емкость 5 л = 6л. видимо так.

Набираем полные емкости 5 и 8 литров, переливаем сначала 8 литров в 12 литровую емкость, а потом из 5 литровой наливаем до краев в 12 литровый сосуд, еще 4 литра = в итоге в 5 литровой емкости остается ровно 1 литр 

const

 nn = 25; // максимум слов

var

 a: array[1..nn] of string[20];

 

procedure Parser(s: string; var k: integer);

var  

 i,n: integer;

 w: string;

begin  

 w := '';

 k := 0;

 n := length(s);

 for i := 1 to n do

   if s[i] <> ' ' then w := w + s[i]

   else

     if length(w) > 0 then

     begin

       k := k + 1;

       a[k] := w;

       w := '';

     end;

 if length(w) > 0 then

 begin

   k := k + 1;

   a[k] := w;

 end;

end;

 

var

 s: string[254];

 i, k: integer;

 

begin

 Readln(s);

 Parser(s, k);

 for i := 1 to k do

   if Pos('ар', a[i]) > 0 then

     write(a[i], ' ');

end.

Программа уровня Турбо Паскаль

Как я понял тебя, должно быть так

(c++, Mingw)

#include <iostream>

int main()

{

   int iter(0); //Сколько циклов

   int kolvoch, kolvominutes;       //сколько вздремнуть

   int hours, minutes;      //нач. время

   std::cin >> hours >> minutes >> kolvoch >> kolvominutes;

   for (int i = 0; i < iter; i++, minutes += kolvominutes, hours += kolvoch)

   {

       if (minutes > 60)   {hours += minutes / 60; minutes = minutes % 60;}

       if (hours >= 24)    {hours = hours % 24;}

   }

   std::cout << "После " << iter << " циклов, время изменилось на " << hours << ":" << minutes;

   return 0;

}