Требуется найти сумму цифр числа( )²,где 0< n< 19000. составьте программу.

125

146

Посмотреть ответы 2

Ответы на вопрос:

ДарьяКаракал

Информатика

4,5(16 оценок)

Стал ещё сильнее уважать свой ноут: ) uses system.numerics; var k, m: biginteger; n, j: word; begin readln(n); for j : = 1 to n do k : = k * 10 + 5; k : = k * k; writeln(n, ' ', k); repeat m : = m + (k mod 10); k : = k div 10; until (biginteger.parse(k.); //нет, iszero просто так не принимает ide k : = 0; writeln('sum: ', m); end.