Автоморфные числа. натуральное число называется автоморфным, если оно равно последним цифрам его квадрата. например: 25^2=625. напишите программу, которая вводит натуральное число n и выводит на экран все автоморфные числа, не превосходящие n.

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

type

person=record

fam: string;

imya: string;

day: integer;

end;

var

a: array[1..50] of person;

i,n,z: integer;

begin

write('n='); readln(n);

for i: =1 to n do

begin

write('fam-'); readln(a[i].fam);

write('imya-'); readln(a[i].imya);

write('day-'); readln(a[i].day);

end;

write('z-'); readln(z);

for i: =1 to n do

if a[i].day=z then writeln (a[i].fam, ' ',a[i].imya);

readln;

end.

 

 

 

type adrcel=^element; element=record info: integer; next: adrcel; end; var start,last,new_el: adrcel; i: integer;

procedure del2(var start: adrcel);

var

p: adrcel;

begin

p: =start^.next;

if p< > nil then start^.next: =p^.next

end;

begin start: =nil; last: =nil; new_el: =nil; repeat new(new_el); write('info='); readln(new_el^.info);

new_el^.next: =nil; if start=nil thenstart: =new_el; else begin

last: =start;

while last^.next< > nil do last: =last^.next; last^.next: =new_el; end; write('продолжить? (1-да/0-нет): '); readln(i); until i=0; writeln('удалим 2-й элемент');

del2(start);

new_el: =start; while new_el< > nil do begin write(new_el^.info: 4); new_el: =new_el^.next; end; readln; end.