1)
var
a, b: integer;
begin
writeln('Введите a, b: '); readln(a, b);
if(b mod a = 0) then writeln('Является делителем')
else writeln('Не является делителем');
end.
2)
var
x, y, tmp: real;
begin
repeat
writeln('Введите x, y: '); readln(x, y);
until(x <> y);
if(x > y) then begin
tmp := y;
y := (x + y) / 2;
x := 2*(x * tmp);
writeln('Большее - X = ', x, ' Меньшее - Y = ', y);
end else begin
tmp := x;
x := (x + y) / 2;
y := 2*(tmp * y);
writeln('Большее - Y = ', y, ' Меньшее - X = ', x);
end;
end.
372
Объяснение:
Запишем для каждого числа, сколькими его можно получить из предыдущих чисел. Отдельно посчитаем программы 2 -> 5, 5 -> 26. Тогда для получения ответа достаточно перемножить результаты первой и второй программ (на каждый результат первой программы приходится каждый результат второй программы).
2 -> 5:
2 — 13 — "2" — 14 — "3" + "2" — 25 — "4" — 25 -> 26:
5 — 16 — "5" — 17 — "6" — 18 — "7" — 19 — "8" — 110 — "9" + "5" — 211 — "10" + "6" — 312 — "11" + "7" — 413 — "12" + "8" — 514 — "13" + "9" — 615 — "14" + "10" — 816 — "15" + "11" — 1117 — "16" + "12" — 1518 — "17" + "13" — 2019 — "18" + "14" — 2620 — "19" + "15" — 3421 — "20" + "16" — 4522 — "21" + "17" — 6023 — "22" + "18" — 8024 — "23" + "19" — 10625 — "24" + "20" + "5" — 14126 — "25" + "21" — 1862 * 186 = 372