С одной стороны 50 строк
с другой стороны код не скомпилируется, так как нет точки после end
1)Переведём Кбайты в бит: 1437*1024*8=11771904 бит
2)Переведём минуты в секунды: 7 минут 59 секунд= 479 секунд.
3)Вычисляем скорость: 11771904бит/479секунд=24576бит/с=3072байт/с=3Кбайт/с
Program upr;
uses crt,GraphABC;
var pic:Picture; R,c:integer; b:string;
begin
SetWindOwSize(640,450);
write('Введите расстояние от предмета до зеркала(1-100):');
Readln(R);
pic:=Picture.Create('raskraska-shenok18.jpg');
pic.load('raskraska-shenok18.jpg');
Pic.Draw(320+R,100,200,290);
Pic.Draw(320-R,100,-200,290);
Setpencolor(clgreen);
Setpenwidth(5);
lINE(320,50,320,400);
LINE(50,400,590,400);
Setpenwidth (2);
Line(trunc(120+r/2),100,TRUNC(520-r/2),100);
END.
181/2=90 остаток 1
90/2=45 остаток 0
45/2=22 остаток 1
22/2=11 остаток 0
11/2=5 остаток 1
5/2=2 остаток 1
2/2 = остаток 0
Ответ: 10110101