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

[Димас]

Модеры извините если что не так я новичёк,на форуме первый ра з, Школьник 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 12:07

[mamont001]

Каждая буква ,цифра ,символ ,клавиша на клавиатуре имеет свой код. Так например у буквы А он равен 97.
CHR возвращает символ клавишы по номеру chr(n:byte):char;

вот прога для узнаваниея ascii-кода клавиши:

uses crt;
var b:integer;
    e:char;
begin
 clrscr;
 b:=ord(readkey);
 if b=0 then b:=ord(readkey);
 writeln(b);
readln;
end.

uses crt;
var 
 s:string;
 x,i,j,a,max:integer;
begin
 max:=0;
 write('iput string:'); readln(s);
 x:=lenght(s);
 for i:= 1 to lenght(s) do
 begin 
  for j:=48 to 57 do
  begin
   if chr(j)=s[i] then inc(a);
   if a>max then a:=max;
  end;
  for j:=97 to 122 do 
   if chr(j)=s[i] then a:=0;
  end;
write(max);
readln
end.

Сообщение отредактировано: mamont001 - 24.12.2006 14:13