Изображения размером 256х512 пикселей,либо <span>320х400 пикселей</span>
В условии задания не сказано, запрещено ли роботу ходить по закрашенным клеткам или нет,поэтому будем считать что разрешено.
a) начало
пока справа свободно (если закрашено (вниз,закрасить,вверх; ) вправо)
если закрашено (вниз,закрасить ;)
конец.
В данном алгоритме робот идет направо,пока не достигнет конца. При каждом смещении вправо он проверяет,на какой клетке стоит : если клетка,на которой стоит робот закрашена, то он закрашивает клетку под ней. После цикла делается ещё одна проверка,так как робот, находясь на последней клетке справа не будет заходить внутрь цикла, так как условие "пока справа свободно" не выполнится, поэтому добавим ещё одну проверку после цикла для последней клетки.
б) Здесь алгоритм аналогичный, только добавляется ещё заход в верхнюю клетку для закраски.
начало
пока справа свободно (если клетка закрашена (вверх, закрасить, вниз, вниз, закрасить, вверх; ) вправо)
если клетка закрашена (вверх,закрасить,вниз,вниз,закрасить)
конец.
Program rrr;
var a,s:longint;
begin
read(a);
s:=455545656566556;
if (a mod 4)=0 then s:=a div 2
else s:=a;
write(s);
end.
Var
a, b:array[1..10000] of integer;
n, count, i, ianswer, cnt: integer;
Begin
Readln(n);//количество пар
For i:= 1 to n do
begin
Read(a[i]);//читаем первый катет
Readln(b[i]);//читаем второй катет
end;
ianswer:= 1;
count:= 1;
For i:= 2 to n do
begin
if a[i]*b[i] = a[ianswer]*b[ianswer] then inc(count);
if a[i]*b[i] > a[ianswer]*b[ianswer] then
begin
count:= 1;
ianswer:=i;
end;
end;
if count = 1 then begin
Writeln('Треугольник с наибольшей площадью равной ', a[ianswer]*b[ianswer],
'и, имеет размеры катетов ', a[ianswer], ' и ', b[ianswer], '. Номер треуголника: ', ianswer);
halt;
end;
Writeln('Всего ', count, ' Треугольника(-ов) с максимальной площадью равной ', a[ianswer]*b[ianswer]);
cnt:= 1;
For i:= 1 to n do
if a[ianswer]*b[ianswer] = a[i] * b[i] then begin
Writeln(cnt, '-й треугольник имеет катеты ',a[i], ' и ', b[i], '. Номер этого треугольника:', i);
inc(cnt);
end;
end.