Нахождение нескольких автоморфных чисел

@Маринка- · Регистрация: 29.09.2013

Author24 — интернет-сервис помощи студентам

Автоморфными называются числа которые содержаться в последних разрядах их квадрата .Например 52=25,252-625.Составить программу для нахождения нескольких автоморфных чисел!

@erl27 · 16.10.2013, 14:29

Pascal

var
 i, N: integer;
 
 ///Функция определяет, является ли число M автоморфным 
function Automorf(M: integer): boolean;
var
  Q, d: integer;
  
begin
  result := false;
  Q := sqr(M);
  d := 1;
  repeat
    d := 10 * d;
    if (Q mod d = M) then begin result := true; break end
  until d > M;
end;
  
begin
  write(' N = ');
  readln(N);
  writeln;
  writeln('Все автоморфные числа от 1 до ', N, ':');
  for i := 1 to N do
    if Automorf(i) then write(' ', i)
end.

@Маринка- 0 / 0 / 0 Регистрация: 29.09.2013 Сообщений: 40
		1
	Нахождение нескольких автоморфных чисел 16.10.2013, 11:11. Показов 2676. Ответов 1 Метки нет (Все метки) Автоморфными называются числа которые содержаться в последних разрядах их квадрата .Например 52=25,252-625.Составить программу для нахождения нескольких автоморфных чисел! 0

	16.10.2013, 14:29

Нахождение нескольких автоморфных чисел

Решение