На бесконечном поле имеется вертикальный коридор. Длина его неизвестна. От верхнего края вертикального коридора отходит горизонтальный коридор также неизвестной длины. Точное направление поворота коридора. На рисунке указан один из возможных расположения коридора и робота. дополни алгоритм для робота, закрашивающий все клетки коридора. Алгоритм должен одинаково правильно, сработать как для коридора, поворачивающего направо, так и для коридора, поворачивающего налево.
использовать Робот
алг
нач
.нц пока ___
..
..
. ___
. ___ ___ ___
... ___ ___
закрасить

...кц
..иначе
... ___ пока сверху ___
закрасить

...кц
. ___
кон

рассмотрите внимательно схему с.15 № 34

var

a: integer;

begin

readln(a);

writeln(a*(a div 10 + (a mod 10)*10));

end.

для хранения информации о звуке длительностью t секунд, закодированном с частотой дискретизации f гц и глубиной кодирования b бит требуется b*f*t  бит памяти

f=16кгц=16000гц

в=24 бита

t= 60 с

16000*24*60=23040000бит= 23040000/8/10^6=2,88мб

третий ответ

1) var a: array [1..2] of real;

          b: array [1..20] of real;

          i: integer;

          c: boolean;

  begin

  c: =false;

  readln(a[1],a[2]);

  for i: =1 to 20 do begin

                            readln(b[i]);

                            if (b[i]=a[1]) then begin writeln('a[1]=b[',i,']=',b[i]); c: =true; end;

                            if (b[i]=a[2]) then begin writeln('a[2]=b[',i,']=',b[i]); c: =true; end;

                            end;

  if c=false then writeln('совпадений не найдено');

end.

2) var a: array[1..10] of real;

    npol,notr,i: integer;

    begin

    npol: =0;

    notr: =0;

    for i: =1 to 10 do begin

                              readln(a[i]);

                              if a[i]> 0 then npol: =npol+1;

                              if a[i]< 0 then notr: =notr+1;

                              end;

    writeln('количество положительных значений: ',npol,', количество отрицательных значений: ',notr);

end.