Найдите ошибку в программе program name; var a, b: integer; rezult: char; begin a: =6 b: =3 rezult: =a div b end

ответ:

program test01;

var a, b, rezult: integer;

begin

a: =6;

b: =3;

rezult: = a div b;

writeln ('rezult = ', rezult);

end.

объяснение:

составим двоичную матрицу:

                        молоко       лимонад         квас                   вода

бутылка               0                   1                 0                     0

стакан                 0                   0                 0                     1

кувшин                 1                   0                 0                     0        

банка                   0                   0                 1                     0

в кувшине - молоко

в бутылке - лимонад

в банке - квас

в стакане - вода