Задачка для языка Free Pascal:Найти все естественные числа от N1 до

Задачка для языка Free Pascal:
Найти все естественные числа от N1 до N2,запись которых совпадает с заключительными цифрами записи их квадрата (как, к примеру 6^2 - 36,25^2 = 625 и т.д.)

Задать свой вопрос
1 ответ
Var
   N1,N2,A:integer;
   B:longint;
   k:boolean;
Begin
Write('N1 = ');ReadLn(N1);
Write('N2 = ');ReadLn(N2);
For N2:= N1 to N2 do
    Begin
    k:=true;
    A:=N2;
    B:=A*A;
    While Alt;gt;0 do
       Begin
       if (A mod 10 lt;gt; B mod 10) then k:=false;
       A:= A div 10;
       B:= B div 10;
       End;
    if k then Write(N2,' ');
    End;
End.



Пример:

N1 = 0
N2 = 65536
0 1 5 6 25 76 376 625 9376
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт