//PascalABC.Net 3.1 сборка 1200
begin
var a:=ReadArrInteger(5);
writeln(a.Min);
end.
Дано:
V = 7200 байт
S = 196606 бит/с
Найти:
t - ?
Решение:
Переводим байты в биты:
7200*8=57600 бит/c
Находим время:
196606:57600= 3,4 с
Ответ: За 3,4 секунды.
Цикл while i > 1 do begin означает что он будет выполняться до тех пор, пока i > 1. i изначально равно 7, и в конце каждого выполнения число уменьшается на единицу (i:=i-1). i div 2 означает деление числа на 2 с целым остатком. Исходя из вышесказанного имеем:
(Каждое выполнение цикла буду обозначать как №)
№1: 7>1 (Истина)
S:=0+3=3
i=6
№2: 6>1 (Истина)
S:=3+3=6
i:=5
№3: 5>1 (Истина)
S:=6+2=8
i:=4
№4: 4>1 (Истина)
S:=8+2=10
i:=3
№5: 3>1 (Истина)
S:=10+1=11
i:=2
№6: 2>1 (Истина)
S:=11+1=12
i:=1
№7: 1>1 (Ложь)
Вывод числа S со значением 12.
Ответ: 12.
Закрыть , развернуть в полноэкранный режим и свернуть
закрыть - крестик , свернуть - маленькая черточка, развернуть в полноэкранный режим - контур прямоугольника похожего на окно