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
Раздели на 1024
лкшаататаа
(ln(128)/ln(2)) бит на пикс * 15 точек ширина * 15 точек высота = 1575 бит инф. объём (вес фотки).
Если нужно на Паскале:
program test;
var mas : array[1..15] of integer;
sum : integer;
otr : integer;
i: integer;
begin
sum := 0;
otr := 0;
randomize;
for i:=1 to 15 do
begin
mas[i] = -50 + random(100);
sum := sum + mas[i];
if mas[i] < 0
then otr := otr + 1;
end;
writeln ('Сумма: ' + sum);
writeln ('Количество отрицательных элементов: ' + otr);
end.