Var M, N, sumN: integer; begin readln(N); M := N; sumN := 0; while (M > 0) do begin inc(sumN, M mod 10); M := M div 10; end; M := (N div sumN + 1) * sumN; if (M < 2*N) then writeln(M) else writeln('нет') end.
Так как участок КВАДРАТНЫЙ, то все стороны у него РАВНЫ. Площадь-64м2. а-? Площадь-а*б нужно найти корень,то есть число,которое если умножить на это же число,получится 64. 64=8*8 Ответ:8-длина(или ширина) квадратного участка.