Какие автозаполнения таблицы вы знаете?​

1.Наливаем в кувшин с 8-ю литрами воду. Из кувшина с 8-ю литрами переливаем воду в кувшин с 3-мя литрами и выливаем воду из 3-ёх литров, у 8-ми литрового кувшина осталось воды 5л. Далее опять из 8-ми литрового (в котором уже 5 литров) кувшина переливаем воду опять в 3-ёх литровый кувшин, выливаем воду из 3-ёх литрового. В кувшине с 8-ю литрами осталось 2 литра воды, переливаем 2 литра в 3-ёх литровый кувшин. Наливаем в 8-ми литровый воду и выливаем 1 литр из 8-ми литрового в 3-ёх литровый кувшин, получаем 7 литров в 8-ми литровом кувшине. Выливаем воду из 3-ёх литрового. Выливаем из 8-ми литрового 3 литра в 3-ёх литровый и получаем 8-ми литровый кувшин с 4-мя литрами. Далее выливаем из 3-ёх литрового кувшина воду и наливаем с 8-ми литрового 3 литра в 3-ёх литровый кувшин.В итоге в 8-ми литровом кувшине остался 1 литр воды.
2.458 убираем последнюю цифру (8)
45*2=90
у 90 убираем последнюю цифру (0)
9*2=18
18*2=36
36*2=72
у 72 убираем последнюю цифру (2)
7*2=14

Program z14;  Var q, z:integer; sr, sg, x, y: real;Begin  write('Введите число Q = '); readln(q);  write('Введите число Z = '); readln(z);    writeln('Задание 2:');  if (q = z) then             begin              sr:= (q + z) / 2;              writeln('Среднее арифметическое = ', sr);             end             else              begin              sg:= sqrt(q * z);              writeln('Среднее геометрическое = ', sg);             end;               writeln('Задание 3:');  x:= -3;  while (x <= 3) do  begin    y:= 5*x*x - x + 2;    writeln('X = ', x, '  Y = ',y);    x:= x + 0.5;  end;End.