востановите рисунок по описанию установить 20,80 линия к 65,110 линия к 110,80 линия к 20,80 прямоугольник 20,20,110,10 прямоугольник 30,80,40,30, прямоугольник 50,80,80,30 прямоугольник 70,80,80,30 прямоугольник 90,80,100,30 УМОЛЯЮ ВРЕМЕНИ МАЛО ОЧЕНЬ!!
a1
program a1;
uses graphABC;
var i:integer;
begin
SetWindowSize(400,400);
for i:=0 to 7 do
begin
line(0,50*i,50*i,0);
line(400,50*i,50*i,400)
end
end.
b1
program b1;
uses graphABC;
var i:integer;
begin
SetWindowSize(400,400);
for i:=0 to 7 do
begin
line(50*i,0,400,400-50*i);
if i <> 0 then line(0,50*i,400-50*i,400)
end
end.
a2
program a2;
uses graphABC;
var i:integer;
begin
SetWindowSize(400,400);
for i:=0 to 7 do
begin
line(0,50*i,50*i,0);
line(400,50*i,50*i,400);
line(50*i,0,400,400-50*i);
if i <> 0 then line(0,50*i,400-50*i,400)
end
end.
b2
program b2;
uses graphABC;
var i:integer;
begin
SetWindowSize(400,400);
for i:=1 to 7 do line(50*i,0,50*i,400);
for i:=1 to 7 do line(0,50*i,400,50*i)
end.
Объяснение:
используем циклы с параметром
Верещагин
Объяснение:
Предложение увеличилось на 128 бит или на 128/8=16 байт.
Поскольку 1 символ кодируется 1 байтом то в предложение добавлены 16 символов (в том числе пробелы. инициалы, знаки препинания)
Видим, что все художники записаны в формате: ФАМИЛИЯ ПРОБЕЛ ИНИЦИАЛ ТОЧКА ИНИЦИАЛ ТОЧКА ЗАПЯТАЯ ПРОБЕЛ (в последней фамилии запятой после инициалов нет).
Значит были добавлены 16 символов. последние 6 из которых - это инициалы со знаками препинания и пробелом. Тогда фамилия художника должна состоять из 9 символов и 1 пробела после неё. (всего 10 символов).
Такая фамилия в приведенном тексте - это Верещагин В.В.,_
Как раз всего 16 символов, с учетом последнего пробела обозначенного подчеркиванием.
Ранее текст выглядел так:
"В лучших музеях хранятся полотна таких замечательных русских художников, как Ге Н.Н., Гау Э.П., Серов В.А., Перов В.Г., Брюллов К.П., Васнецов В.М., Айвазовский И.К., Боровиковский В.Л."