24 разряда шины = 3 байта за один такт
А тактовая частота будет 33 000 000 / 3 = 11 000 000 1/с = 11 Мегагерц
Ввод матрицы A(n, m)
Цикл по строкам i = от 1 до n
Цикл по столбцам k = от 1 до m
Если A(i, k) = 0, то
Цикл по столбцам j = от 1 до m
Q = A(i, j) : A(i, j) = A(i, m-j+1) :
A(i, m-j+1)
= Q
Конец цикла по j
Конец Если
Конец цикла по k
Конец цикла по i
Вывод матрицы
Конец
По-моему, так.
// Дан массив А(30). Сформировать новый массив из значений элементов массива А кратных 5
var ish, krat: array [1..30] of word;
i,j,x :byte;
begin j:=1;
randomize;
for i:=1 to 30 do //заполняем исходный массив случайными числами (до 1000)
begin
ish[i]:=random(1000);
writeln (i,' элемент исходного массива ',ish[i]);
end;
writeln ('находим элементы кратные пяти:');
for i:=1 to 30 do
begin
x:= ish[i] mod 5; //определяем элементы кратные пяти
if x=0 then
begin //и заполняем новый
krat[j]:=ish[i];
writeln (j,' элемент нового массива ',krat[j],' равен ',i,' элементу исходного массива');
j:=j+1;
end;
end;
<span>end.</span>
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(49,-50,50); a.Println;
Writeln('Сумма равна ',a.Sum);
if not a.Any(t->t=0) then Writeln('Произведение равно ',
a.Aggregate(BigInteger(1),(p,q)->p*q))
end.
<u>Пример</u>
-26 -4 -2 -12 -38 -3 3 -12 -22 -30 -41 -38 34 20 34 -7 -10 -34 16 -1 -20 -17 49 -48 50 -37 -30 25 -42 -24 16 7 -27 2 8 44 -31 42 39 -29 -4 21 19 41 -34 -9 -4 48 47
Сумма равна -71
Произведение равно -5875206582842929080605341032818854321985176247205888000000000
Ответ:
1) Нет
2) 4 секунды
Объяснение:
№1
-----Дано-----
17 роликов
Размер 1 ролика 490мб
-----Найти-----
Поместиться ли 17 роликов на флешку 8ГБ ?
-----Решение-----
17 * 490 = 8330мб
8330 \ 1024 = 8.1 ГБ
Берем в расчет еще и файловую систему флешки, там чистых 8 ГБ не будет даже на новой.
-----Ответ-----
Нет. 17 файлов на 8Гб-ю флешку не поместятся.
№2
-----Дано-----
Скорость передачи 2 048 000 бит/с
-----Найти-----
Через сколько секунд передаст файл размером 1000 Кбайт
-----Решение-----
2 048 000 / 8 = 256000 байт
256000 \ 1024 = 256 кбайт (256 Кбайт/с скорость канала)
1000 \ 256 = 3,9 секунды, округляем получаем 4 секунды.
-----Ответ-----
4 секунды на передачу.
