Var
a,b,c,a1,b1:
real;
begin
a:=168;
b:=178;
write('Введите рост - ');
readln(a1);
write('Введите вес - ');
readln(b1);
if (a1<a) or (a1>b) then
writeln('Предендент не может вступить в школу так как его рост не соответствует нормам.')
else
begin
if b1>a1 then
writeln('Предендент не может вступить в школу так как его вес не соответствует нормам.')
else writeln('Человек может вступить в школу.');
end;
<span>end.</span>
Изначально у нас есть четыре ёмкости из них :
одна 12/12 (полная) и три 0/5 ; 0/5 ; 0/3 (пустых).
Наглядно это весь процес выглядит следующим образом.
1) 12/12 ; 0/5 ; 0/5 ; 0/3 (это то что дано)
2) 7/12 ; 5/5 ; 0/5 ; 0/3
3) 2/12 ; 5/5 ; 5/5 ; 0/3
4) 2/12 ; 2/5 ; 5/5 ; 3/3
5) 0/12 ; 4/5 ; 5/5 ; 3/3
6) 3/12 ; 4/5 ; 5/5 ; 0/3
7) 3/12 ; 4/5 ; 2/5 ; 3/3
8) 6/12 ; 4/5 ; 2/5 ; 0/3
9) 6/12 ; 4/5 ; 0/5 ; 2/3
10) 1/12 ; 4/5 ; 5/5 ; 2/3
11) 1/12 ; 4/5 ; 4/5 ; 3/3
12) 4/12 ; 4/5 ; 4/5 ; 0/3
<span> Галина Исаковна Райнус</span>