<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ReadSeqInteger(ReadlnInteger)
.Where(t->(t mod 6=0) and (t mod 10=4)).Count.Println
end.
8) 1
запредположим вначале он в точке 0,0 выполнив три команды попадет в точку 1,2 следовательно повторив эти движения три раза попадет в точку 3,6, для возврата из которой надо выпонить 1 команду
9) знать бы еще какие команды он может выполнять... пример алгоритма
while 1:
if впереди стена then break
else вперед
поворот направо
while 1:
красить
if впереди стена then break
else вперед
поворот направо
вперед
while 1:
if слева стена then крась; вперед
else break
Var n:integer;
begin
readln(n);
var ar:=readarrinteger(n);
for var i:=0 to n-1 do if (ar[i]<=437)
then begin write('Crash ',i+1); exit; end;
write('No crash');
end.
Первая запись = 2 канала * 10 с * 16000 ГЦ * 24 бита = 7680000 бита.
Вторая запись = 1 канал * 10 с * 16000 ГЦ * 24 бита = 3840000 бита.
Общий вес файла: 11520000 бита = 1440000 байт = 1406.25 Кбайт = 1406 Кбайт.
Ответ: 1406 Кбайт.