6. Переведите число 68 из 10-ной системы счисления в 2-ю. Сколько единиц содержит полученное число?
7. Файл размером 1000 Кбайт передаётся через некоторое соединение в течение 1 минут. Найти размер файла (в Кбайтах), который можно передать через это же соединение за 12 секунд.
8. Доступ к файлу rub.xls, находящемуся на сервере fisher.ua, осуществляется по протоколу https. Фрагменты адреса файла закодированы буквами от А до Ж. Запишите в таблицу последовательность этих букв, кодирующую адрес указанного файла в сети Интернет.
А)
xls
В)
://
Д)
rub.
Ж)
.ua
Б)
/
Г)
fisher
Е)
https
ответ вводите заглавными русскими буквами
program AndryshaHomenko;
type mas = array of array of integer;
var a: mas;
n, i, j, summa, k: integer;
begin
write('Дан двумерный массив a, размером (n´n)(или квадратная матрица а).');
writeln('Найти среднее арифметическое положительных элементов еѐ побочной диагонали.');
writeln;
writeln('Введите размерность массива: ');
readln(n);
setlength(a, n, n);
summa := 0;
k := 0;
randomize;
for i := 0 to n - 1do
for j := 0 to n - 1 do
begin
a[i, j] := random(201) - 100;
write(a[i, j], '; ');
if (j = n - 1) then writeln;
if ((j = n - i - 1) and (a[i, j] > 0)) then
begin
summa := summa + a[i, j];
k := k + 1;
end;
end;
writeln('Среднее арифметическое положительных элементов побочной диагонали массива равно ', summa / k : 0 : 2);
readln;
end.