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

[Димас]

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

[Димас]

Спасибо Мужики!!!!! и ещё на закуску и засыпку последняя задача:

Задача 986

Дано двух мерный массив целых чисел, модифицировать его элементы, как описано ниже, и вывести на экран по строкам.
а.) Ко всем четным элементам массива прибавить первый элемент соответствующей строки.
б.) Все элементы массива , оканчиваются цифрой 2, умножить на последний элемент соответствующего столбца.
в.) Ко всем положительным элементам массива прибавить последний элемент соответствующей строки, а к остальным – первый элемент такой же строки..
г.) Все элементы массива, индексов которых кратна пяти, заменить нулями.

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

Program z986;
uses crt;
var mas1,mas2:array[1..5,1..5] of integer;
    i,j,a:integer;
    s:string;
begin
 ClrScr;
 randomize;
 for i:=1 to 5 do

      for j:=1 to 5 do
          mas1[i,j]:=random(100)-50;
          mas2:=mas1;

         for i:=1 to 5 do
         begin

             for j:=1 to 5 do
                 write(mas1[i,j],',');
                 writeln;
         end;

 writeln;
 writeln('-----A-----');
 for i:=1 to 5 do
  begin
   for j:=1 to 5 do
    begin
     if (mas2[i,j] mod 2)=0 then mas2[i,j]:=mas2[i,j]+mas2[i,1];
     write(mas2[i,j],',');
    end;
   writeln;
  end;
 readln;
 writeln('-----B-----');
 mas2:=mas1;
 for i:=1 to 5 do
  begin
   for j:=1 to 5 do
    begin
     str(mas2[i,j],s);
     a:=length(s);
     if s[a] = '2' then mas2[i,j]:=mas2[i,j]*mas2[5,j];
     write(mas2[i,j],',');
    end;
   writeln;
  end;
 readln;
 writeln('-----V-----');
 mas2:=mas1;
 for i:=1 to 5 do
  begin
   for j:=1 to 5 do
    begin
     if mas2[i,j]>=0 then mas2[i,j]:=mas2[i,j]+mas2[i,5]
      else mas2[i,j]:=mas2[i,j]+mas2[i,1];
     write(mas2[i,j],',');
    end;
   writeln;
  end;
 readln;
 writeln('-----G-----');
 mas2:=mas1;
 for i:=1 to 5 do
  begin
   for j:=1 to 5 do
    begin
     if ((i mod 5)=0)or((j mod 5) =0) then mas2[i,j]:=0;
     write(mas2[i,j],',');
    end;
   writeln;
  end;
 readln;
end. 

Но опять же учитель информатики сказал передалать как нибуть эту задачу, но не так как сделал это не могк понять что ему не нравится
Я подругому не могу разрулить эту задачку

Помогайте в последний раз, добрые люди



Вся надежда только на вас уважаемые форумцы

Потому что если я завтра не здам эту последнюю задачу он мне не поставит оценку, и табель соотвествено я не получу.....