Sub aaa()
Cells(8, 3).Formula = "=MAX(A5:A9)+MIN(A5:A9)"
End Sub
1)
Program n1;
var i: integer;
sum: real;
begin
sum:=0;
for i:=102 to 1000 do if (i mod 3=0) then sum:=sum+i;
writeln('Сумма: ',sum);
end.
2)
Program n2;
var i: integer;
begin
for i:=10 to 99 do if (i mod 2<>0)then writeln(i);
end.
Ответ: А) Цель: перевозка людей. Машинист электропоезда - управляющий объект. Поезд метро - управляемый объект. Остановка и разгон поезда метро, открытие и закрытие дверей
Б) Цель: оповестит пассажиров рейса. Работник аэропорта. Пассажиры рейса. Пригласить к зоне посадки в самолет.
В) Цель: ловля рыбы. Рыбак. Удочка. Крутить катушку с леской
Г) Цель: вылечить пациента. Врач. Пациент. Поставить укол, прописать лекарства, дать лекарства