Ответ:
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 секунды на передачу.
Можно перемещать, копировать, переименовать, удалять.
Ответ:
program znanija
var arr: array [1..30] of integer;
var i: integer;
begin
for i:=0 to 30 do
begin
readln (arr [i]);
end;
for i:=0 to 30 do
begin
if arr[i] > 10 then
begin
writeln (arr [i]);
end;
end;
end.
Или линк: https://pastebin.com/Jm5R4Ehp
// PascalABC.NET 3.0, сборка 1073
var
Bag,Bagaj:array[1..2] of longint;
begin
Bagaj[1]:=5; Bagaj[2]:=43600;
{ перенос Bagaj -> Bag }
Bag[1]:=Bagaj[1]; Bag[2]:=Bagaj[2];
Writeln('Предметов- ',Bag[1],', общий вес ',Bag[2]);
Bag[1]:=4; Bag[2]:=24540;
{ перенос Bag -> Bagaj }
Bagaj[1]:=Bag[1]; Bagaj[2]:=Bag[2];
Writeln('Предметов- ',Bagaj[1],', общий вес ',Bagaj[2]);
end.
<em><u>Тестовое решение:</u></em>
Предметов- 5, общий вес 43600
Предметов- 4, общий вес 24540