Какую задачу решает процедура «Primer»? procedure primer(a, b: integer; var m: integer);
begin
if a>b then
т" =а
else
m:=b:
end.

1) находит максимум из двух чисел
2) меняет местами значения двух переменных
3) определяет равны для два числа
4) находим минимум из двух чисел

по формуле n= найдем, сколько было круглых фигурок -  = 4; всего фигурок было 15+4=19. ответ: 19

var s: string;

begin s : = 'видеоадаптер'; writeln(s); writeln(s[3] + s[2]+ s[5] + s[3]); writeln(s[12] + s[6] + s[3] + s[2] + s[5]); writeln(s[9] + s[6] + s[12] + s[10] + s[11] + s[12]); end.

наливаем  воду в сосуд для 5 и переливаем в сосуд из 3-х литров в сосуде их 5-ти остаёться 2,переливаем в ведро,повторяем тоже самое ещё образом получаем 4 литра))

4мин=240 сек.

1 половина всего времени = 240/2=120 сек.

за перпую половину времени передалось = 120 сек * 117 кбит = 14040 кбит

за вторую половину времени передалось в 3 раза меньше (т.к. скорость была в 3 раза меньше) = 14040/3=4680 бит

всего передалсоь = 14040+4680=18720 кбит = 2340 кбайт