Натуральное число называется автоморфным,если оно равно последним цифрам своего квадрата.например,25²=625.напишите программу,которая получает натуральное число n и выводит на экран все автоморфные числа,не превосходящие n.
Program n1; function au(n:longint):boolean; var m:longint; f:boolean; begin m:=n*n; f:=true; while (n>0) and f do begin if (n mod 10)<>(m mod 10) then f:=false else begin n:=n div 10; m:=m div 10; end; end; au:=f; end; var i,n: longint; begin readln(n); for i:=1 to n do if au(i) then write(i,' '); end.
Программа Поверка диска (ScanDisk) cлужит для проверки физического состояния поверхности диска, его магнитных свойств, выделяет плохие участки (с повреждённым магнитным слоем), чтобы в дальнейшем на них запись не могла производится. Если в плохих секторах была записана какая-то информация, то она переписывается автоматически на хорошие участки, а плохие секторы локализуются и в дальнейшей работе не используются. Таким образом, память диска уменьшается, но он остаётся работо Поскольку магнитный слой всех дисков не является стабильным и его целостность зависит от многих факторов (температура, статическое электричество, воздействие внешних магнитных полей и др.), рекомендуется еженедельно проверять все диски программой Проверка диска.
// PascalABC.NET 3.3, сборка 1542 от 05.10.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество строк/столбцов в матрице:'); Writeln('*** Исходная матрица [',n,',',n,'] ***'); var c:=MatrRandom(n,n,-99,99); c.Println(4); Writeln(4*c.ColCount*'-'); var t:=new real[2*n]; var j:=0; for var i:=0 to n-1 do begin t[j]:=c[i,i]; t[j+n]:=c[i,n-i-1]; j+=1 end; t.Println end.
function au(n:longint):boolean;
var m:longint;
f:boolean;
begin
m:=n*n;
f:=true;
while (n>0) and f do
begin
if (n mod 10)<>(m mod 10) then f:=false
else begin
n:=n div 10;
m:=m div 10;
end;
end;
au:=f;
end;
var i,n: longint;
begin
readln(n);
for i:=1 to n do if au(i) then write(i,' ');
end.