Выкидываем буквы, получаем кан сер
Выходит сканер
Изменил... теперь нормально все.
uses graphabc,crt;
var i:integer; h:real;
begin
randomize;
rectangle(280,130,320,320);
rectangle(250,10,350,260);
circle(300,55,35);
circle(300,135,35);
circle(300,215,35);
for i:=1 to 1000 do
begin
floodfill(300,55,clred);
delay(3000);
floodfill(300,55,clwhite);
delay(1000);
floodfill(300,135,clyellow);
delay(3000);
floodfill(300,135,clwhite);
delay(1000);
floodfill(300,215,clgreen);
delay(1000);
floodfill(300,215,clwhite);
delay(1000);
end;
end.
1) Нам нужно число больше - 77, то возможно это число 78 или больше...
2) Переведем 78 в двоичную систему счисления:
78 = 1001110;
3) Проверим число, так как число "1001110" - это результат алгоритма, то делаем все в обратном порядке, а именно убираем два разряда с права:
1001110 = 10011;
4) Переводим это число в десятичную систему счисления:
10011=19;
Ответ: 19.