Книга прямоугольная, имеет какой либо цвет, служит для читания и получения знаний
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>а)1000011110101=4341
</span>1010010111011=5307
<span>110011001100110101=209717
</span>б)123=1111011
456=<span>111001000
1024=</span><span>10000000000
4095=</span><span>111111111111</span>
Program mass;
uses
crt;
var
mas: array [1..5, 1..6] of integer;
mas_od: array[1..6] of integer;
i, j: integer;
begin
randomize;
for i := 1 to 5 do
for j := 1 to 6 do
mas[i, j] := random(10)-5;
for i := 1 to 5 do
begin
for j := 1 to 6 do
write(mas[i, j]:4);
writeln;
end;
writeln('----------------------------');
for i := 1 to 5 do
begin
mas_od[i] := 1;
for j := 1 to 6 do
begin
if((mas [i, j] mod 2 = 0) and (mas[i, j] > 0)) then
mas_od[i] := mas_od[i] * mas[i, j];
end;
end;
for i:=1 to 6 do write(mas_od[i]:4);
writeln;
end.