Натуральное число называется автоморфным, если оно равно последним числам своего...

Question

Натуральное число называется автоморфным, если оно равно последним числам своего квадрата. Например 25^2 = 625. Напишите программу, которая получает натуральное число N и выводит на экран все автоморфные числа, не превосходящие N.

Answer 1

Var
   N,A:integer;
   B:longint;
   k:boolean;
Begin
Write('N = ');
ReadLn(N);
For N:= 1 to N do
    Begin
    k:=true;
    A:=N;
    B:=A*A;
    While A<>0 do
       Begin
       if (A mod 10 <> B mod 10) then k:=false;
       A:= A div 10;
       B:= B div 10;
       End;
    if k then Write(N,' ');
    End;
End.

Comments

k:=true; → k:=1;

---

k:=false; → k:=0;

---

И можно все переменные одним типом integer задать, но диапазон допустимых значений программы будет очень маленький

---

Мы еще не проходили просто эти типы данных, учитель докопается :D

---

а так - спасибо

---

сейчас поменяю

---

Вообще, вы все типы на первом-втором уроке проходили. Ну, может быть кроме string

---

не, только integer и real. Учимся по Полякову. Может, наш учитель пропустил, если там есть

---

integer, longint, byte, word - это всё целые типы, но разных диапазонов - что тут проходить?

---

ну, я не знал)