Составим двоичную матрицу:
молоко лимонад квас вода
бутылка 0 1 0 0
стакан 0 0 0 1
кувшин 1 0 0 0
банка 0 0 1 0
В кувшине - молоко
В бутылке - лимонад
В банке - квас
В стакане - вода
program an;
var n:integer;
s1,s2:string;
i,j:integer;
begin
s1[1]:='*';
s2[1]:=' ';
for j:=2 to n do
begin
if s1[j-1]='*' then
s1[j]:=' '
else
s1[j]:='*';
if s2[j-1]='*' then
s2[j]:=' '
else
s2[j]:='*';
end;
j:=1;
for i:=1 to n do
begin
if j=1 then
begin
writeln(s1);
j:=0;
end
else
begin
j:=1;
writeln(s2);
end
end;
end.
Объяснение:
