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

[Димас]

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

[Димас]

Тогда поехали дальше:
Задача 1095:
Имеется строка, содержащая буквы латинского алфавита и цифры. Вывести на экран длину наибольшей последовательности цифр, идущих подряд.


Я написал так:

Program z1095;
uses crt;
type
 rec = record
  r1:string;
  r2:integer;
 end;
var s,s1:string;
    r:rec;
    x,i,a,kod,y:integer;
    flag:boolean;
begin
 r.r1:='';
 r.r2:=0;
 y:=0;
 s1:='';
 flag:=false;
 ClrScr;
 write('Vvedite stroky : ');
 read(s);
 x:=length(s);
 for i:=1 to x do
  begin
   val(s[i],a,kod);
   if kod=0 then
    begin
     flag:=true;
     y:=y+1;
     s1:=s1+s[i];
     if i=x then
      if y>r.r2 then
       begin
        r.r1:=s1;
        r.r2:=y;
       end;
    end
     else
      if flag then
       begin
        if y>r.r2 then
         begin
          r.r1:=s1;
          r.r2:=y;
         end;
        flag:=false;
        y:=0;
        s1:='';
       end;
  end;
 write('Rezyltat : ',r.r1);
 readln;
 readln;
end.

Но опять же, учитель информатики сказал переделать задачу вообще всю((
но из какой то функцией chr связано из таблицей ASCII Как бы это сделать?

volvo. Куда центы слать за задачу?

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