Нужно доделать задачу на цыкл... Опции

[Димас]

Модеры извините если что не так я новичёк,на форуме первый ра з, Школьник 11 клас..... общем проблемка такая:
Задача: Проверить существует ли четырех значное натуральное число, сума пятых степеней цифр которого ровна самому числу

Исходный код решения задачи:

Program z349; 
uses crt; 
var s:string; 
i,kod,r:integer; 
a1,a2,a3,a4:integer; 
begin 
ClrScr; 
writeln('Begin...'); 
writeln; 
for i:=1000 to 9999 do 
begin 
str(i,s); 
val(s[1],a1,kod); 
val(s[2],a2,kod); 
val(s[3],a3,kod); 
val(s[4],a4,kod); 
r:=sqr(sqr(a1))*a1+sqr(sqr(a2))*a2+sqr(sqr(a3))*a3+sqr(sqr(a4))*a4; 
if i=r then writeln(s); 
end; 
writeln; 
write('End.'); 
readln; 
end. 

Но учитель информатики сказал что это правильно, но он не поставить мне за эту задачу оценку , пока я не переделаю эти строки:

str(i,s); 
val(s[1],a1,kod); 
val(s[2],a2,kod); 
val(s[3],a3,kod); 
val(s[4],a4,kod); 

Командами mod и div
Я знаю как найти первую цыфру: a1:=i div 1000;
а ещё 3 надо
Общем помогите пожалуйста!
Я могу вам сказать человеческое спасибо.... и отдать всё что уменя есть на вебмани колельке, а это 97 центов...
Заранее СПасиБо!

А ксати мне все (21 задачи) задачи надо сделать до завтра(( Кто поможет век не забуду ещё есть вопросы по 2 задачам но сперва помогите 1ю решить.....

Сообщение отредактировано: Димас - 24.12.2006 16:07