1) Дано натуральное число. Получить новое, приписав к нему такое же число (например, дано число 234, результат - 234234) 2) Автоморфным называется число, цифры которого совпадают с последними цифрами его квадрата. Например, 6*6 = 36, 5*5 = 25, 76*76=5776. Определить, является ли данное число автоморфным.

1) program zz1;

var a, k, i, s, n:integer; / / задаем переменные целого типа

begin

write (' введите заданное k ');

read (k);

s:=k;

a:=k;

while k0 do

begin

k:=k div 10;

n:=n + 1;

end;

for i:=1 to n do

s:=s*10;

writeln ('полученное новое число = ', s+a); / / выводим ответ

end.

2) program zz1;

var a, k, i, s, n:integer; / / задаем переменные целого типа

begin

write (' введите заданное k ');

read (k);

s:=1;

a:=k;

while k0 do

begin

k:=k div 10;

n:=n + 1;

end;

for i:=1 to n do

s:=s*10;

if (a*a) mod s = a then write (' число автоморфное ') else write (' число не автоморфное '); / / выводим ответ

end.