Var s:= (10000..99999).Where (s -> ((a mod 10 = s div 10000)));
Begin
print (s);
end.
(Sqrt(s)КВАДРАТНЫЙ КОРЕНЬ-??)
(trunc(s)-?)
хелп)

Undina705    2   18.02.2022 17:23    1