(600*1024/2)/24000=12.8 секунд будет звучать стереоаудиофайл
1) колобок, монета, барабан
2)
топор
лейка
прорубь
ёж
Копейка рубль бережёт
Var ar:array[1..10] of integer;
i,s:integer;
begin;
for i:=1 to 10 do
readln(ar[i]);
writeln('OK:');
for i:=1 to 10 do
if (i mod 2=0) and (ar[i] mod 2=0) then writeln(ar[i]);
<span>end.</span>
<em>// PascalABC.NET 3.2, сборка 1346 от 25.11.2016</em>
<em>// Внимание! Если программа не работает, обновите её версию!</em>
begin
var n:=Readinteger('n=');
Writeln(n mod 10, (n div 10) mod 10)
end.
<u>Пример</u>
n= 368
86