7 Для решения задачи с14 Петя составил алгоритм и записал про-
грамму. Петин младший брат Олег
удалил несколько команд. Опреде-
лите, сколько команд удалил Олег.
Восстановите программу, которую
написал Петя.
uses Robot;
begin Field (99)
Task('c14');
paint;
fоr vаr i:=1 to
i1 4 do
begin
paint;
right;
down;
end;
fоr vаr i:=1 to 4 do
begin
right;
up;
end;
fоr vаr i:=1 to 4 do
begin
paint;
end;
end.
​

Объяснение:

1. Пронумеруем разряды:

3-й разряд - 4;

2-й разряд - 1;

1-й разряд - 5;

0-й разряд - 3.

4153₈=4·8³+1·8²+5·8¹+3·8⁰

2. 4153₈=4·8³+1·8²+5·8¹+3·8⁰=2048+16+40+3=2155₁₀

3. 125/8=15 (5)

15/8=1 (7)

(1)

125₁₀=175₈

4. Пронумеруем разряды:

2-й разряд - A;

1-й разряд - 6;

0-й разряд - E;

A6E₁₆=(10)(6)(14)=10·16²+6·16¹+14·16⁰

5. A6E₁₆=10·16²+6·16¹+14·16⁰=2560+96+14=2670₁₀

6. 350/16=21 (14=E)

21/16=1 (5)

(1)

350₁₀=15E₁₆

7. 247/2=123 (1)

123/2=61 (1)

61/2=30 (1)

30/2=15 (0)

15/2=7 (1)

7/2=3 (1)

3/2=1 (1)

(1)

247₁₀=11110111₂

247/8=30 (7)

30/8=3 (6)

(3)

247₁₀=367₈

247/16=7 (15=F)

(7)

247₁₀=7F₁₆

Получившиеся числа между собой равны, так как имеют одинаковое число в десятичной системе счисления.

Program zadacha;

var a1,a26, norm1,norm26,S, d: real;  

n:integer;

begin

a1:=42;

d:=3;

n:=26;

norm1:=round(a1*100/67);//найдем дневную норму и округлим ее

a26:= a1+d*(n-1);//бригада выполнит в 26-й день, 26-й член арифметической прогрессии, где разность=3

norm26:= norm1*n;//найдем норму за 26 рабочих дней

S:= (a1+a26)*26/2;//сумма 26-сти членов арифметической прогрессии, все изделия за 26 дней

//вывод на экран промежуточных вычислений не обязателен

writeln ('норма за один день = ',norm1);

writeln ('изделий в 26-й день = ',a26);

writeln ('норма за 26 дней = ',norm26);

writeln ('всего изделий за 26 дней = ',S);

if S >= norm26 then

writeln ('бригада выполнит месячную норму')

else

writeln ('бригада не выполнит месячную норму');

end.

//В вашем условии m - это норма за месяц, т.е. за 26 рабочих дней