Нужно найти в задаче всего 2 ошибки!!!!

[Катя21]

При возведении некоторых натуральных чисел в квадрат полученный результат может оканчиваться исходным числом. Например, 762=5776. Опре-делить все N-значные числа, обладающие указанным свойством (N<21). Формат входных данных: N. Формат выходных данных: все числа, обла-дающие заданным свойством, каждое из которых выводится с новой строки. Порядок вывода значения не имеет.

Сама программа:
program z20;
var i,n:integer;
begin
Writeln('Все числа, при возведении в квадрат которых получается результат оканчиваеться исходным числом: ');
For i:=1 to 20 do
if sqr(i) mod 10 = i then Writeln(i);
end.

[Hacker19_90]

N-значные числа

обладающие указанным свойством (N<21)

20 знаков?
ладно
наверно как-то так

For i:=1 to 20 do
if i < 10 then
    if (sqr(i) mod 10) = i then Writeln(i)
else if  (sqr(i) mod 100)  = i then Writeln(i);

[Катя21]

Значит ошибками являются эти 2 строчки, которые надо заменить?

[rUs_LAN]

привет Alexa20, как дела. А если серьезно насколько я правильно понял задачу простым перебором обсчитать это довольно сложно (долго) вот такой ряд для восьмизначных чисел.

5            25
6            36
25           625
76           5776
376          141376
625          390625
625          390625
9376         87909376
9376         87909376
90625        8212890625
109376       11963109376
890625       793212890625
2890625      8355712890625
7109376      50543227109376
12890625     166168212890625

Впринципе несложно заметить некоторую закономерность, но я слишком слабо знаю математику чтобы использовать ее в свою пользу. Если это то что требуется в твоем задании могу дать код программы.

[Катя21]

Дай тогда пожалуйста код))))

[rUs_LAN]

 public static void Main()
        {
            TextWriter tw = new StreamWriter("date.txt");
            for (long i = 2; i < 20000000; i++)
            {
                int k=1;
                while (k < 21)
                {
                    if ((i * i) % (1*Math.Pow(10,k)) == i) tw.Write("{0,-10}   {1}\n", i, i * i);
                    k++;
                }

               
            }
            tw.Close();
            Console.ReadKey();
        }

оригинал

For i:=1 to 20000000 do
begin
while(K<21)
begin
if ((i*i) mod (k^10) =  i) Writeln(i);
inc(k);
end;
end;

Паскаля нет так что код скорее всего не будет работать но логику я думаю понятно

http://written.ru/articles/science/automorph