Процедуры и функции: Найти все натуральные числа,от 1 до n, сумма квадратов цифр которых равна самому числу

@mashkama · Регистрация: 26.10.2012

Author24 — интернет-сервис помощи студентам

Найти все натуральные числа,от 1 до n, сумма квадратов цифр которых равна самому числу

@КонецСвета · 08.11.2012, 20:55

Pascal

uses crt;
var i,n: longint;
    
function SumSqr(c: longint):longint;
var s: longint;
begin
s:=0;
while c>=1 do
      begin
      s:=s+sqr(c mod 10);
      c:=c div 10;
      end;
SumSqr:=s;
end;
 
begin
write('n='); readln(n);
for i:=1 to n do
    if SumSqr(i)=i then write(i,' ');
readln;
end.

@mashkama 1 / 1 / 0 Регистрация: 26.10.2012 Сообщений: 61
		1
	Процедуры и функции: Найти все натуральные числа,от 1 до n, сумма квадратов цифр которых равна самому числу 08.11.2012, 15:57. Показов 1697. Ответов 1 Метки нет (Все метки) Найти все натуральные числа,от 1 до n, сумма квадратов цифр которых равна самому числу 1

	08.11.2012, 20:55

Процедуры и функции: Найти все натуральные числа,от 1 до n, сумма квадратов цифр которых равна самому числу

Решение