нужно
-
Е.
| К:= 0 |
Да
А >= о
A
Нет
= 0
С.
1-ТА
К:= K+1
Нет
B>= 0
w
ін
-
-
-
=
-
-
-
-
-
-
-
-
-
| К:= K+1
Е
-
-
-
-
=
=
n
п.
Е
Е
і
-
-
-
-
-
-
-
-
-
–
Е
.
- - - -
-
тілінен аударғ анда
СЕ Р
Е
Ш
ja mia
ЗЕ НЕ МЕНЕ
інт
Е
н
-
а
інші ірі - - - -
- А ,
Е
= = = = = = =
a ==
5 дні під і Е .
= = =
= = = = = = = =
Е -
- -
= -
=
=
-
=
.
.
-
1 - 1 1 - cun 2 т т
- з а та л д - a = = = =
- Imail
аl ili 1.
-
Ел і не
ва
Ева
- h = a
пE ( 1 і
нічні
- - -
- -
1
п . 1
Е
а
- Е
та ін.
–
та
-LEI і ін.
а . а
-
imal
-
-
-
- -
і на
-
-
ірі -
a
-
-
iin a
А.
tan
НЕ Е
-
-
-
-
в
Elie in Tr
- 2 =
=
T
Дніпрі
па і
- Е -
НЕ Е
-
- 5 =
=
пnii his
а н н =
=
-
Li i
il
-
u -
7 =
= = = =
-
=
-
=
на
iа
2
-
a =
file
5
na i
= = =
р
r
-
s
-
-
-
= =
-
-
-
-
-
-
Н
-
Fia​

Const
      CSize1=7;
      CSize2=6;
      CSize3=5;
type TMas=array[,] of integer;   
var
    A1:TMas;
    A2:TMas;
    A3:TMas;
    x, y:byte;

procedure zapoln(var T:TMas;Size:integer);
begin
var i,j:integer;
setlength(T,Size+1,Size+1);
for i:=1 to Size do
  begin
  for j:=1 to Size do
    begin
    T[i,j]:=random(50);
    write(T[i,j]:3);
    end;
  writeln;
  end;
writeln;
end;

function zero(T:TMas):integer;
var i,j,n:integer;
begin
n:=length(T,0)-1;
for i:=1 to n do
  for j:=1 to n do
    if T[i,j]=0 then result:=result+1;
end;

function interval(T:TMas):integer;
var i,j,n:integer;
begin
n:=length(T,0)-1;
for i:=1 to n do
  for j:=1 to n do
    if (1<=T[i,j]) and (T[i,j]<=12) then result:=result+1;
end;

begin
zapoln(A1,CSize1);
zapoln(A2,CSize2);
zapoln(A3,CSize3);
x:=zero(A1)+zero(A2)+zero(A3);
y:=interval(A1)+interval(A2)+interval(A3);
writeln('Kol-vo 0 =', x);
writeln('Kol-vo v intervale=', y);
end.

Наполняем сосуд на 9 литров и переливаем из него воду в 7 л. сосуд (в 9 л. сосуде остаётся 2 л)выливаем воду из 7л. сосуда и заливаем туда 2 л воды из 9 л. сосуда,наполняем 9 л. сосуд водой и выливаем в 7 л. сосуд.(в 9 л. Сосуде остаётся 4 л. )выливаем воду из 7л. сосуда и заливаем туда 4 л из 9 л. сосуда,наполняем 9 л. сосуд водой и выливаем в 7 л. сосуд.(в 9 л. Сосуде остаётся 6 л. )Выливаем воду из 7 л. сосуда и заливаем туда 6л. из 9 л. сосуда , наполняем 9 л. сосуд водой и выливаем в 7 л. сосуд.(в 9 л. Сосуде остаётся 8 л. )Выливаем воду из 7л. сосуда и заливаем туда воду из 9л. сосуда (8-7=1л остался в 9л. Сосуде)