program raf105;
var a,sum,i:integer;
begin
writeln('Вводите 10 чисел по очереди');
for i:=1 to 10 do
begin
readln(a);
sum += a;
end;
writeln('Сумма: ',sum);
end.
<em><u>Язык PascalABC</u></em>
Ответ: А) Цель: перевозка людей. Машинист электропоезда - управляющий объект. Поезд метро - управляемый объект. Остановка и разгон поезда метро, открытие и закрытие дверей
Б) Цель: оповестит пассажиров рейса. Работник аэропорта. Пассажиры рейса. Пригласить к зоне посадки в самолет.
В) Цель: ловля рыбы. Рыбак. Удочка. Крутить катушку с леской
Г) Цель: вылечить пациента. Врач. Пациент. Поставить укол, прописать лекарства, дать лекарства
Переведем Кбиты/с в кБ/с (килобайты в секунду, далее просто кБ/с), для этого разделим скорость на 8.
800 Кбит/с : 8 = 100 кБ/с.
Далее 160 Мб переведем в кБ, 160 * 1024 = 163840 кБ.
Рассчитаем время, для этого 163840 кБ : 100 кБ/с = 1638,4 секунд. Переведем в минуты, если нужно: 27 минут - приблизительно.
<em>Ответ приблизительный: 27 минут или 1638,4 секунд</em>