begin
var i, j: <em>byte</em>;
for i := 6 to 10 do
begin
for j := 0 to 10 - i do
write(i, ' ');
writeln();
end;
<span>end.
begin
var i, j: <em>byte</em>;
for i := 0 to 4 do
begin
for j := 0 to 4 - i do
write(i, ' ');
writeln();
end;
<span>end.</span></span>
Основа метода (самое важное) - использование концепции трех базовых элементов - линейной, ветвления, и цикла.
На втором месте по значимости - использование большого количества подпрограмм
Переведем все в одну систему счисления, например, в шестнадцатиричную.
1) 29*60*78=135720-всего символов в издании
Н=54
135720*6=814320бит=101790 байт=99,4кбайт
Н=256
8*135720=1085760бит=135720байт=132,5кбайт
Н=32
5*135720=678600бит=84825байт=82,8кбайт
2)
3698*8=29584бит
н=32
3)12*86=1032байт=8256бит
8256:6=1376символов