Найти первые 4 четыре натуральных числа, пятая степень которых оканчивается тремя одинаковыми цифрами, кроме нулей

[KolinKr]

Найти первые 4 четыре натуральных числа, пятая степень которых оканчивается тремя одинаковыми цифрами, кроме нулей

[VIK_aka_TOR]

пиши в личку или стучись в аську... обсудим... за небольшое вознагрождение...

[NetSpace]

всё просто. в цикле перебираете все натуральные числа, скажем, от 1 до 100. в этом цикле возводите это число в пятую степень. далее, преобразуте это число в строку и сравнивайте 3 последних символа в этой строке

for i:=1 to 100 do
begin
 a:=i*i;
 a:=a*a;
 a:=a*i;
 s:=IntToStr(a);
 if(s[Length(s)-2]=s[Length(s)-1])and(s[Length(s)-2]=s[Length(s)])then print(i, a);
end;

ну, а уж нули или не нули эти последние числа - условие напишите сами

[Plague]

Не все так просто, а еще проще. Строки тут вообще не нужны!

var i,j,k,x,y:int64;
begin
  k:=0;
  i:=0;
  repeat 
    inc(i);
    x:=i;
    y:=1;
    for j:=1 to 5 do y:=y*x mod 1000; // 5 степень
    if (y<>0)and(y mod 111=0) then
      begin
        writeln(i);
        k+=1;
      end;
  until k=4; // 4 количество перых чисел
end.