Набираем 8 литровый кувшин.
Наливаем из него в 3 литровый кувшин. В 8 литровом остается 5 литров.
Опустошаем 3 литровый кувшин.
Наливаем из 8 литрового в 3 литровый кувшин. В 8 литровом остается 2 литра.
Опустошаем 3 литровый кувшин.
Наливаем из 8 литрового в 3 литровый кувшин оставшиеся 2 литра.
Набираем 8 литровый кувшин.
Наливаем из 8 литрового в 3 литровый кувшин (1 литр до полного).
В 8 литровом остается 7 литров.
Можно предложить следующую классификацию объектов, с которыми взаимодействует пользователь при работе на компьютере.
Var
i,N,A,k:integer;
Begin
k:=0;
Write('N = ');Read(N);
For i:= 1 to N do
Begin
Read(A);
if (A mod 10 = 8) then k:=k+1;
End;
WriteLn(k);
End.