<span>Это файл инициализации сервера сертификатов для Paradox.NET. Он нужен .</span>
А)
var
a:array[1..10]of integer;
i:integer;
begin
for i:=1 to 10 do
a[i]:=random(20)+1;
for i:=10 downto 1 do
write(a[i],' ');
end.
б)
var
a:array[1..20]of integer;
i:integer;
begin
for i:=1 to 20 do
a[i]:=random(11*i)+10*i;
for i:=1 to 20 do
if i mod 2=1 then write(a[i],' ');
end.
Скорее всего открыл: Файл -> Сведения
и посмотрел "Автор" и "Кем изменено" и эти значения оказались одинаковыми у нескольких человек.
Автор меняется правой кнопкой мыши, для изменения поля "Кем изменено" нужно внести какие-нибудь правки на своём компьютере и сохраниться.
60*45*1200=3240000 символов, один символ равен 1 байт, 1байт=8битам, 3240000*8=25920000, 1 мб=8000000бит, следовательно 25920000/8000000=3,24мб, 700/3,24= приблизительно 216. правда можно было и без перевода в биты, но мало ли))