<span>106
function f(x: integer): integer;
var
L, M: integer;
begin
L := x - 12;
M := x + 12;
while L <> M do
if L > M then
L := L - M
else
M := M - L;
f := L;
end;
begin
var x := 100;
var r := 0;
repeat
x := x + 1;
r := f(x);
until r = 2;
writeln(x);
end.
</span>
A) 470 г) 117 д) 0 б) 44? в) 1001101100
А - умножение на 2
Б - разность с ближайшим меньшим квадратом
В - двоичная запись числа
Г - целочисленное деление на 2
Д - остаток от деления на 5
Программа на скрине! Надеюсь помог!
1.В.
2.С.
3.В
4.А
а дальше наугад)))