Вопрос Задача в паскале по массивам.

[prod]

Даны натуральные числа M и N. Найти все меньшие N натуральные числа, квадрат суммы цифр которых равен M.

 

[Kent_163]

не хочу.. это скучно

 

[jena1232]

Можно и с массивом. Что плохого в том, чтобы лишний раз потренироваться с динамическим массивом?

 

[ErikVz]

А при чем здесь массивы? Сначала пишем функцию, возвращающую сумму цифр числа function SumDigits(N : Integer) : Integer; var S : Integer; begin S := 0; while N > 0 do begin S := S + N mod 10; N := N div 10; end; SumDigits := S; end; и используем ее в своей программе for i:=1 to N-1 do if Sqr(SumDigits(i)) = M then WriteLn(i); Как-то так...

 

[найк]

Не совсем понимаю, зачем в данной задаче массивы, они тут не нужны совершенно