Исполнитель Робот движется по бесконечному клетчатому полю и имеет следующую систему команд: Q#-# раз сместиться на одну клетку вверх
T#-# раз сместиться на одну клетку вниз
X#-# раз сместиться на одну клетку вправо
L#-# раз сместиться на одну клетку влево
#{}-повторить # раз последовательность команд в скобках

Программа для исполнителя Робот - это последовательность команд. Определите кол-во клеток, в которых Робот побывал более одного раза после выполнения след программы:
2{L3 T2 L2 T1 X7 Q4 L3 T3}
В ответе укажите целое число.

👇

Ответ:

dariaAppp

03.05.2023

Объяснение:

Во вложении наглядно представлен маршрут, по которому двигался Робот, выполняя программу. Красным обозначена стартовая клетка, розовым — та, в которой Исполнитель закончил выполнять систему команд первый раз и начал второй, фиолетовым — финишная клетка. Еще два цвета использованы для раскраски клеток, в которых Робот побывал по разу, выполняя систему команд первый (желтым) и второй (зеленым) раз. Наконец, в синих клетках Исполнитель очутился несколько раз. Их 8, чем и интересовались составители задачки

Исполнитель Робот движется по бесконечному клетчатому полю и имеет следующую систему команд: Q#-# ра

4,4(15 оценок)

Открыть все ответы

Ответ:

KUGOTVIN

03.05.2023

1)
program zadacha1;
uses crt;
var b,i,j:integer;
c,pr:real;
a:array [1..4,1..7] of integer;

begin
clrscr;
pr:=1;
for i:=1 to 4 do
begin
for j:=1 to 7 do
begin
readln(a[i,j]);
end;
end;
for i:=1 to 4 do
begin
for j:=1 to 7 do
begin
if (a[i,j] mod 3) = 0 then pr:=pr*a[i,j];
end;
end;
pr:=pr/3;
writeln(pr:2:3);
readkey;
end.

2)
program zadacha2;
uses crt;
const k=8;
var b,i,j,sum:integer;
c,pr:real;
a:array [1..k,1..k] of integer;

begin
randomize;
clrscr;
pr:=1;
for i:=1 to k do
begin
for j:=1 to k do
begin
a[i,j]:=random(36)+10;
end;
end;

for i:=1 to k do
begin
for j:=1 to k do
write(a[i,j],' ');
writeln;
end;
for j:=1 to k do
begin
if (a[k,j] mod 5) = 0 then pr:=pr*a[i,j];
end;

for i:=1 to k do
begin
for j:=1 to k do
begin
if (i=j) and (a[i,j] > 0) then sum:=sum+a[i,j];
end;
end;

writeln('Prozvedenie ',pr:2:2);
writeln('Summa ',sum);
writeln('Raznostb ',pr-sum:2:2);
readkey;
end.

3)
program zadacha3;
uses crt;
const k=9;
var b,i,j:integer;
sred,sum,l:real;
a:array [1..k,1..k] of integer;

begin
randomize;
clrscr;
for i:=1 to k do
begin
for j:=1 to k do
begin
a[i,j]:=random(55-12+1)+12;
end;
end;
for i:=1 to k do
begin
for j:=1 to k do
write(a[i,j],' ');
writeln;
end;

for i:=1 to k do
begin
if (a[i,k] mod 2) = 1 then
begin
l:=l+a[i,k];
b:=b+1;
end;
end;
sred:=l/b;

for i:=1 to k do
begin
if a[i,i]>25 then sum:=sum+a[i,i];
end;
writeln;

writeln('Srednee ',sred:2:2);
writeln('Summa ',sum:2:1);
readkey;
end.

4)
program zadacha4;
uses crt;
const k=5;
var b,i,j:integer;
sred,sum,l:real;
a:array [1..k,1..k] of integer;

begin
randomize;
clrscr;
for i:=1 to k do
begin
for j:=1 to k do
begin
a[i,j]:=random(91)-20;
end;
end;
j:=k;
for i:=1 to k do
begin
if (a[i,j] mod 2)<> 0 then
begin
l:=l+a[i,j];
b:=b+1;
end;
j:=j-1;
end;
sred:=l/b;

for i:=1 to k do
begin
for j:=1 to k do
write(a[i,j],' ');
writeln;
end;
writeln;

writeln('Srednee ',sred:4:2);
readkey;
end.

5)
program zadacha5;
uses crt;
const k=5;
var b,i,j:integer;
sred,sum,l:real;
a:array [1..k,1..k] of integer;

begin
randomize;
clrscr;
for i:=1 to k do
begin
for j:=1 to k do
begin
a[i,j]:=random(31)-40;
end;
end;
j:=k;
for i:=1 to k do
begin
if (a[i,j] mod 2)<> 0 then
begin
l:=l+a[i,j];
b:=b+1;
end;
j:=j-1;
end;
sred:=l/b;

for i:=1 to k do
begin
for j:=1 to k do
write(a[i,j],' ');
writeln;
end;
writeln;

writeln('Srednee ',sred:4:2);
readkey;
end.

6)

program zadacha6;
uses crt;
const k=6;
var b,i,j:integer;
sred,sum,l:real;
a:array [1..k,1..k] of integer;

begin
randomize;
clrscr;
for i:=1 to k do
begin
for j:=1 to k do
begin
a[i,j]:=random(21);
end;
end;
j:=k;
for i:=1 to k do
begin
if a[i,j]>5 then
begin
l:=l+a[i,j];
end;
j:=j-1;
end;
l:=l/2;

for i:=1 to k do
begin
for j:=1 to k do
write(a[i,j],' ');
writeln;
end;
writeln;

writeln('Sum ',l:2:2);
readkey;
end.

7)

program zadacha7;
uses crt;
const k=5;
var b,i,j:integer;
pred,sum,l:real;
a:array [1..k,1..k] of integer;

begin
randomize;
clrscr;
for i:=1 to k do
begin
for j:=1 to k do
a[i,j]:=random(10);
end;
j:=k;
for i:=1 to k do
begin
l:=l+a[i,j];
j:=j-1;
end;

for i:=1 to k do
begin
for j:=1 to k do
write(a[i,j],' ');
writeln;
end;

for i:=1 to k do
begin
sum:=sum+a[i,i];
end;
pred:=sum+l;

writeln('Sum ',pred/10:2:2);
readkey;
end.

8)
program zadacha8;
uses crt;
const k=5;
var b,i,j:integer;
pred,sum,l:real;
a:array [1..k,1..k] of integer;

begin
randomize;
clrscr;
for i:=1 to k do
begin
for j:=1 to k do
a[i,j]:=random(10);
end;
j:=k;
for i:=1 to k do
begin
l:=l+a[i,j];
j:=j-1;
end;
l:=l/k;
for i:=1 to k do
begin
for j:=1 to k do
write(a[i,j],' ');
writeln;
end;

for i:=1 to k do
begin
sum:=sum+a[i,i];
end;
sum:=sum/2;

writeln('Sum ',sum:2:2);
writeln('Sred',l:2:2);
readkey;
end.

4,7(67 оценок)

Ответ:

дина372

03.05.2023

Нужно найти количество программ, которые из 1 получают 10, количество программ, которые из 10 получают 21, но не проходит через 17 и перемножить найденные значения. Сначала найдём количество программ, получающих 10 из 1.

Обозначим R(n) — количество программ, которые преобразуют число 2 в число n.

Верны следующие соотношения:

1. Если n не делится на 2, то тогда R(n) = R(n - 1), так как существует единственный получения n из n - 1 — прибавление единицы.

2. Пусть n делится на 2.

Если n > 1, то R(n) = R(n / 2) + R(n - 1).

Если n = 1, то R(n) = 1 (два прибавление единицы и удвоение).

Теперь можно постепенно вычислить все значения:

R(2) = R(1) + R(1) = 1 + 1 = 2 = R(3)

R(4) = R(2) + R(3) = 2 + 2 = 4 = R(5),

R(6) = R(3) + R(5) = 2 + 4 = 6 = R(7),

R(8) = R(4) + R(7) = 4 + 6 = 10 = R(9),

R(10) = R(5) + R(9) = 4 + 10 = 14