<h2>Задание 1</h2>
(смотри первую прикреплённую фотографию)
<h2>Задание 2</h2>
(смотри вторую прикреплённую фотографию)
Если код второго задания для Вас "сложен", то, извините, Вам придётся для работы каждого типа с каждым писать отдельные перегрузки:
float и int, double и int, float и double, size_t и int. В общем - таких типов очень много и полноценный калькулятор у Вас выйдет на 100+ строк.
Шаблоны изучаются вначале, так как позволяют избежать вот таких ситуаций.
Var
N,K,R: integer;
x,s: integer;
begin
read(N,K);
R := N;
x := 2; s := 4;
while s <= K do
begin
while K mod x = 0 do
begin
if N mod x = 0 then
N := N div x
else
R := R * x;
K := K div x;
end;
s := s + 2*x + 1;
x := x + 1;
end;
if N mod K <> 0 then
R := R * K;
writeln(R)
end.
128000/(6*60)=<span>
355,5556бит/8/1024=</span><span>
<span>0,043403 Кбайта</span></span>
Ответ: А) Цель: перевозка людей. Машинист электропоезда - управляющий объект. Поезд метро - управляемый объект. Остановка и разгон поезда метро, открытие и закрытие дверей
Б) Цель: оповестит пассажиров рейса. Работник аэропорта. Пассажиры рейса. Пригласить к зоне посадки в самолет.
В) Цель: ловля рыбы. Рыбак. Удочка. Крутить катушку с леской
Г) Цель: вылечить пациента. Врач. Пациент. Поставить укол, прописать лекарства, дать лекарства