Const n=3;
var a:array[1..n,1..n] of integer;
i,j,s,max,min:integer;
begin
max:=-32767;
min:=32767;
for i:=1 no n do
for j:=1 to n do
begin
readln(a[i,j]);
if a[i,j]>max then max:=a[i,j];
if a[i,j]<min then min:=a[i,j];
end;
writeln(max+min)
end.
У меня получилось так (1 -- закрашено, 0 -- не закрашено)
100010001
001000100
100010001
001000100
100010001
Итого: 13 клеток
Б может быть только в конце, т.к. там не точек
Число в адресе не может быть больше 255, поэтому сочетания АГ, ГВ и АВ недопустимы. Ответ: ВГАБ.
Попробуй:
("А" одно из чисел последовательности, а Q кол-во нулей)
Begin
For i:=1 to n do
Read(A);
If A=0 then inc(Q);
Write(Q);
End.
Var
a, b, i, k: integer;
begin
readln(a, b);
for i := a to b do
if i mod (7 * 2) = 0 then
begin
k := k + 1;
writeln(i);
end;
writeln('K = ', k);
end.