задача с цыклом

[julian97]

Программист и математик ездят в сказочном троллейбусе , в котором номера билетов - пятизначные числа. Покупая билет , они всегда проверяют "счастливый" у него номер или " нет". Для этого они выполняют такие математические вычисления:
• Вычисляют сумму квадратов цифр числа .
• Затем повторяют операцию для полученного результата.
• И делают это пока результат не окажется равным единице , или вычисления не попадут в бесконечный цикл . Если операция закончилась на единицы , то номер счастлив.
Входной файл INPUT.TXT содержит несколько чисел - номера билетов ( по одному в строке). В выходной файл OUTPUT.TXT для каждого билета нужно вывести HAPPY , если билет счастливый , или SAD - в противном случае

[Stilet]

или вычисления не попадут в бесконечный цикл

Это кто придумал? Назови препода и выложи его фотку на демотиватор. Страна должна знать своих hero-ев.

[Poma][a]

Это кто придумал?

Ты не прав.. Такое может быть..
1+1+1+1+1= 5
5^2 = 25
4+25 = 29
4+81 = 85
64+25 = 89
64+81 = 145
1+16+25 = 42
16+4=20
4+0 = 4
16 = 16
1+36 = 37
9+49 = 58

Здрасте, бесконечный цикл..

Вот есть ссылки (но для 4-х чисел..)тыц
тыц

[Stilet]

julian97

Еще раз кросспост заделаешь - отправлю в бан.

Такое может быть..

У бесконечного цикла нет условий, а значит нельзя определить что этот цикл бесконечен.

[Poma][a]

В программировании бесконечным циклом называется цикл, написанный таким образом, что условие выхода из него никогда не выполняется.

Таким образом можно определить, что цикл бесконечен..

[Stilet]

Допустим. а как программа определит что условие уже стало "бесконечным"?
Человек, то предположить может, а компьютер?

[julian97]

у меня получилось сделать только если цыкл 2 раза проходит, что сдесь не так

program kvitok;

var i,f,l,k,h,g:longint;

function roskl(n:longint):longint;
var a,b,c,d,e,s:longint;
begin
a:=n div 10000;
b:=n div 1000 mod 10;
c:=n div 100 mod 10;
d:=n div 10 mod 10;
e:=n mod 10;
s:=a*a+b*b+c*c+d*d+e*e;
roskl:=s;end;
function ch(k:integer):integer;
var h:integer;
begin
case k of
1..9:h:=1;
10..99:h:=2;
100..999:h:=3;
1000..9999:h:=4;
else h:=5;end;
ch:=h;
end;
begin
read(g);
k:=roskl(g);
l:=ch(k);
for i:=1 to h do begin
f:=roskl(l);
end;
write(f);
end.

[BDA]

Stilet, как только встретим уже встреченный набор цифр (или само число, так как одинаковый набор цифр дает одинаковое число), то попали в цикл.
julian97, во-первых, а если число будет 6тизначное? Во-вторых, интересное условие конца цикла.

[Poma][a]

julian97, во-первых, а если число будет 6тизначное?

в котором номера билетов - пятизначные числа

И наибольшее будет 99999 = 81*5 = 405.. так что не будет..

[julian97]

в условии 5 значное