PascalABC.NET 3.4
begin
var n := ReadInteger('n=');
var a := ArrRandom(n, 0, 2); a.Println;
var (k, km) := (0, 0);
for var i := 0 to n-1 do
if a[i] = 0 then
if k = 0 then k := 1
else k += 1
else
begin
if k > km then km := k;
k := 0
end;
Writeln('Максимальное количество нулей подряд равно ',km)
end.
<span>ДАНО:2^30
НАЙТИ В МБАЙТАХ
</span><span>2^30/2^3/2^10/2^10=2^7=128</span>
1.34295*10³ -стандартная форма
0.134295*10⁴ -нормальная форма
13.4295*10² -произвольная форма
Программа 9 раз вычитает из s число 3.
Поэтому s=50-9*3=23
Если все расписывать по шагам:
k=1;
s=50-3=47
k=2
s=47-3=44
k=3
s=44-3=41
k=4
s=41-3=38
k=5
s=38-3=35
k=6
s=35-3=32
k=7
s=32-3=29
k=8
s=29-3=26
k=9
s=26-3=23
Ответ: 23
По вашему рисунку посчитать клеточки сложно, мне показалось, что там всё по 5 клеток. Если это не так, поменять несложно.
использовать Чертежник
алг Зигзаг
нач
сместиться на вектор (0,5)
опустить перо
нц 5 раз
сместиться на вектор (5,5)
сместиться на вектор (5,-5)
кц
кон