Назовем натуральное число палиндромом, если его запись читается одинаково с начала и с конца (как, например 4884, 393, 1). определить, является ли заданное число и его квадрат палиндромами.

Var n : int64; function ispali(a : int64) : boolean; var b : int64; begin   b: =1;   while b< a do b: =b*10;   b: =b div 10;   if a> 9 then ispali: =((a div b)=(a mod 10)) and ispali(a mod b div 10) else ispali: =true; end; begin   readln(n);   if ispali(n) then writeln('это полиндром.') else writeln('это не полиндром.');   write('его квадрат ',sqr(n));   if ispali(sqr(n)) then writeln(' полиндром.') else writeln(' не полиндром.'); end. хотя в pabc.net есть функция и покороче: function ispali(b : longint) : boolean; begin   ispali: =(b=intrevers(b)); end;

program programxy; const n=100;

var inputtext : integer; begin    randomize;

var x : = random(n) + 1;

var y : = random(n) + 1;

var z : = x - y;

writeln('решите пример: ', x, ' - ', y, ' = ');

readln(inputtext);

if inputtext = z then      writeln('правильно! ')

else      writeln('вы ошиблись! правильный ответ: ', z)

end.

 

где-то так это выглядит на паскале. ошибки не обработаны, так что, если вместо числа ввести строку - программа умрет по исключению.

 

Писать иероглифы красиво и уметь писать их кистью с чернилами