В поисковике забей открой с 1 по 3 сайт
(600*1024/2)/24000=12.8 секунд будет звучать стереоаудиофайл
Program vozrast1;
var a,b:integer;
begin
write ('введите ваш возраст');
readln(a);
if a>=18 then write ('ok') else if (a>=14) and (a<18) write ('with parents');
if a<14 then write ('no');
end.
Алгоритм работает, если верхние края стен расположены на одном уровне:
использовать Робот
алг
нач
нц пока справа стена
закрасить
вверх
кц
нц пока справа свободно
вправо
кц
вниз
нц пока слева свободно
влево
кц
нц пока слева стена
закрасить
вниз
кц
кон