Var
n, i, m: longint;
s1, s2: string;
l1: integer;
begin
Write('Введите натуральное число: ');
Readln(n);
Writeln('Автоморфные числа:');
for i := 1 to n do
begin
m := sqr(i);
Str(i, s1);
l1 := Length(s1);
Str(m, s2);
if s1 = Copy(s2, Length(s2) - l1 + 1, l1) then Writeln(i)
end
end.
Тестовое решение:
Введите натуральное число: 10000
Автоморфные числа:
1
5
6
25
76
376
625
9376
БЕГ – бог – бок – бак – мак – маг – ШАГ;
МОРЕ – горе – гора – кора – кома – кума – сума – СУША;
<span>МИГ – мир – пир – пар – бар – бас – бес – вес – ВЕК</span>
<span>0.001
</span><span>Решение должно иметь от 20 до 5000 символов</span>
Program Tank;
uses Drawman;
begin
Field(20, 20);
ToPoint(8, 15);
PenDown;
ToPoint(8, 16);
ToPoint(11, 16);
ToPoint(11, 15);
PenUp;
ToPoint(12, 12);
PenDown;
ToPoint(12, 15);
ToPoint(7, 15);
ToPoint(7, 12);
PenUp;
ToPoint(15, 9);
PenDown;
ToPoint(17, 9);
ToPoint(17, 12);
ToPoint(2, 12);
ToPoint(2, 9);
ToPoint(15, 9);
ToPoint(16, 8);
ToPoint(16, 7);
ToPoint(15, 6);
ToPoint(14, 6);
ToPoint(13, 7);
ToPoint(13, 8);
ToPoint(14, 9);
PenUp;
ToPoint(13, 8);
PenDown;
ToPoint(12, 9);
PenUp;
ToPoint(11, 9);
PenDown;
ToPoint(10, 8);
ToPoint(10, 7);
ToPoint(11, 6);
ToPoint(12, 6);
ToPoint(13, 7);
PenUp;
ToPoint(7, 9);
PenDown;
ToPoint(6, 8);
ToPoint(6, 7);
ToPoint(7, 6);
ToPoint(8, 6);
ToPoint(9, 7);
ToPoint(9, 8);
ToPoint(8, 9);
PenUp;
ToPoint(6, 8);
PenDown;
ToPoint(5, 9);
PenUp;
ToPoint(4, 9);
PenDown;
ToPoint(3, 8);
ToPoint(3, 7);
ToPoint(4, 6);
ToPoint(5, 6);
ToPoint(6, 7);
PenUp;
ToPoint(7, 13);
PenDown;
ToPoint(1, 15);
ToPoint(1, 16);
ToPoint(7, 14);
PenUp;
ToPoint(0, 0);
end.