Робот находится на входе в коридор. в коридоре имеются тупики сверху и снизу неизвестной длины. длина коридора также неизвестна. написать алгоритм закрашивания всех тупиков и выхода из коридора. сделать в программе кумир
var a:array[1..10,1..15]of integer; i,j,n,x:integer; begin for i:=1 to 10 do for j:=1 to 15 do a[i,j]:=random(101); for i:=1 to 10 do begin for j:=1 to 15 do write(a[i,j],' '); if j=15 then writeln; end; readln(x); for i:=1 to 10 do for j:=1 to 15 do if a[i,j]=x then inc(n); writeln(n); end.
var a:array[1..10,1..15]of integer; i,j,k:integer; begin for i:=1 to 10 do for j:=1 to 15 do a[i,j]:=random(101); for i:=1 to 10 do begin for j:=1 to 15 do write(a[i,j],' '); if j=15 then writeln; end; for i:=1 to 10 do for j:=1 to 15 do if a[i,j] mod 2=0 then inc(k); writeln(k); end.
3. Всего символов: 3 * 25 * 60 Объем в битах: 1125 * 8 Бит на символ: 1125 * 8 / (3 * 25 * 60) = 2 В алфавите 2^2 = 4 символа.
4. D5:E6 - прямоугольный диапазон, в углах которого стоят D5 и E6. В неговходят все указанные в задании ячейки. СУММ(диапазон) считает сумму всех чисел в диапазоне. В данном случае получится 8+3+5+2=18.
var a:array[1..10,1..15]of integer;
i,j,n,x:integer;
begin
for i:=1 to 10 do for j:=1 to 15 do a[i,j]:=random(101);
for i:=1 to 10 do begin for j:=1 to 15 do write(a[i,j],' '); if j=15 then writeln; end;
readln(x);
for i:=1 to 10 do for j:=1 to 15 do
if a[i,j]=x then inc(n);
writeln(n);
end.
var a:array[1..10,1..15]of integer;
i,j,k:integer;
begin
for i:=1 to 10 do for j:=1 to 15 do a[i,j]:=random(101);
for i:=1 to 10 do begin for j:=1 to 15 do write(a[i,j],' '); if j=15 then writeln; end;
for i:=1 to 10 do for j:=1 to 15 do
if a[i,j] mod 2=0 then inc(k);
writeln(k);
end.