2)0.125 MB > 128KB ...................................
I: integer;
a: array [0..100] of integer;
b: array [0..100] of integer;
for i:=0 to 100 do begin
if A[i]<0 them b[i]:=0
else b[i]:=1;
end;
8Мбайт = 8*1024 Килобайт = 8 * 1024 * 1024 байт = 8 * 8 * 1024 * 1024 бит = 67108864
Опустить перо
повернуть налево
идти
повернуть налево
идти
повернуть налево
идти
повернуть направо
идти
повернуть направо
идти
поднять перо