- не использовать знаки ? / и некоторые др.
- длина имени не более 20 символов
- имя файла отражает содержимое
0,5мбайт=512кбайт
1,5Гбайт=3153641472байт
4Мбайт=2053152байт
256байт=2048бит
1,5кбайт=1536бит
1) 0+2 = 2
2) 2-1 = 1
3) 2
4) 1+2 = 3
Значит наша диграмма должна состоять из частей подходящих под цифры-пропорции 2,1,2,3.
Под эти цифры полностью подходит диаграмма № 1 ( на фото не видно какой номер,но должно быть 1 :) ). В левом верхнем углу.
4) Мышь!
При подключение она просто начинает работать
Uses Crt;
Const
N = 39;
Var
X:array[1..N] of integer;
i,j,k:integer;
Begin
Randomize;
ClrScr;
k:=0;
WriteLn('Исходный массив: ');
For i:= 1 to N do
Begin
X[i]:=random(53)-15;
if X[i]<30 then
Begin
TextColor(12);
k:=k+1;
End
else TextColor(7);
Write(X[i],' ');
End;
WriteLn;
WriteLn;
TextColor(7);
WriteLn('Числа, меня тридцати: ',k);
WriteLn;
WriteLn('Упорядоченный массив: ');
For i:= 1 to N do
For j:= 1 to N-1 do
if X[j]>X[j+1] then
Begin
k:=X[j+1];
X[j+1]:=X[j];
X[j]:=k;
End;
k:=0;
For i:= 1 to N do
Begin
Write(X[i],' ');
j:=X[i];
While j div 10 <> 0 do
j:=j div 10;
if (j = 2)or(j = -2) then
k:=k+1;
End;
WriteLn;
WriteLn;
WriteLn('Числа, начинающиеся с двойки: ',k);
ReadLn;
End.