1 мегабайт=8 мегабит
25*8=200 мегабит
200/10=20 с
1)1
2)3
3)2
4)4
5)название
6)1-а 2-в 3-б
7)2
8)4
9)3
10)2
11)система вложенных папок
12)c
<span>uses crt;
var s,sc:string;
i,k: integer;
begin
write('s=');
readln(s);
for i:=1 to length(s)-1 do
begin
sc:=copy(s,i,2);
if (sc='жы') or (sc='шы') then
begin
s[i+1]:='и';
inc(k);
end;
end;
if k=0 then writeln('Ошибок не обнаружено') else
begin
writeln('Обнаружены ошибки в количестве ',k,'. Ошибки исправлены: ');
writeln(s);
end;
readkey
end.</span>
SCREEN 12
INPUT "risovat den ili noch(l/y)"; a$
IF a$ = "l" THEN a = 14 ELSE a = 15
CIRCLE (200, 200), 100, a
PAINT (200, 200), a, a
может так