//Элементы a[i,i] - элементы главной диагонали, в переменной p будем хранить их произведение.
var B: array[1..100, 1..100] of integer;
i, j, n: integer; P: longint;
begin
write('Введите размерность: ');
readln(n);
p := 1;
for i := 1 to n do begin
for j := 1 to n do begin
B[i, j] := Random(100);
write(B[i, j]:3);
if i = j then p := p * B[i, j];
end;
writeln;
end;
writeln('Произведение главной диагонали матрицы: ', p);
end.
Задача 3
(t - время передачи, I - объем данных, v - скорость передачи)
Дано:
I = 2048 Мбайт = 2048 * 1024 * 1024 * 8 бит = 17179869184 бит
v = 256 Мбит/с = 256 * 1024 * 1024 бит/с = 268435456 бит/с
t - ?
Решение:
минут
Ответ: 64.0
Задача 2
Один символ занимает 0,5 байт = 0,5*8бит = 4 бит
N = 2^i = 2^4 = 16 символов в алфавите
И вниз..жесткий диск, процессор, оперативная память
Ответ:
//////////////////////////////////////////////////
Объяснение:
Var s:string;
i:integer;
begin
writeln('Введите строку:');
readln(s);
for i:=1 to length(s) do
if i mod 2 = 0 then s[i]:='!';
writeln(s);
end.
Пример:
Введите строку:
Дана строка состоящая из символов
Д!н! !т!о!а!с!с!о!щ!я!и! !и!в!л!в