Зеленый свет, пошел, посмотрелна лево, дошел до середины, посмотрел на право,
F(1) = 1 + F(4) * F(2);
F(4) = 4 + F(7) * F(8) = 4 + 14 * 16 = 228;
F(2) = 2 + F(5) * F(4) = 2 + 325 * 228 = 74102;
F(5) = 5 + F(8) * F(10) = 5 + 16 * 20 = 325;
--------------------------------------------
F(7) = 2 * 7 = 14;
F(8) = 2 * 8 = 16;
F(10) = 2 * 10 = 20;
------------------------
F(1) = 1 + 228 * 74102 = 16895257
Первый способ (большой):
использовать Чертежник
алг Богдан_1
нач
опустить перо
сместиться в точку(0, 11)
сместиться в точку(6, 11)
поднять перо
сместиться в точку(0, 6)
опустить перо
сместиться в точку(6, 6)
сместиться в точку(6, 0)
сместиться в точку(0, 0)
поднять перо
сместиться в точку(8, 0)
опустить перо
сместиться в точку(8, 11)
сместиться в точку(14, 11)
сместиться в точку(14, 0)
сместиться в точку(8, 0)
поднять перо
сместиться в точку(16, 0)
опустить перо
сместиться в точку(16, 11)
сместиться в точку(22, 11)
поднять перо
сместиться в точку(22, 0)
опустить перо
сместиться в точку(22, -2)
сместиться в точку(22, 0)
сместиться в точку(30, 0)
сместиться в точку(30, -2)
сместиться в точку(30, 0)
сместиться в точку(28, 0)
сместиться в точку(28, 11)
сместиться в точку(24, 11)
сместиться в точку(24, 0)
поднять перо
сместиться в точку(32, 0)
опустить перо
сместиться в точку(32, 11)
сместиться в точку(38, 11)
сместиться в точку(38, 0)
сместиться в точку(38, 5)
сместиться в точку(32, 5)
поднять перо
сместиться в точку(40,0)
опустить перо
сместиться в точку(40, 11)
сместиться в точку(40, 5)
сместиться в точку(46, 5)
сместиться в точку(46, 11)
сместиться в точку(46, 0)
кон
Второй способ (короткий):
использовать Чертежник
алг Богдан_2
нач
написать(30, "Богдан")
кон
Программа считает кол-во цифр больше 4-х и кол-во цифр меньше шести в твоем числе.
Первая цифра - это кол-во числе больше 4-х.
Вторая цифра - соответсвенно.
В итоге ответ получается: 10556
Const n=10;
var a: array[1..n] of integer;
i,m,n,max:integer;
begin
randomize;
a[1]:=random(300);
max:=a[1];
write(a[1],' ');
for i:=2 to n do
begin
a[i]:=random(300);
if a[i]>max then max:=a[i];
write(a[i],' ');
end;
writeln;
for i:=1 to n do
if (a[i]>0 then a[i]:=a[i]*max;
<span>for i:=1 to n do
</span>write(a[i],' ');
end.