Информатика pascal: найти сумму 1+12+123+1234+12345+123456+1234567

1 371 738-ответ примера

// pascalabc.net 3.1, сборка 1214 от 09.04.2016 function automorph(n: integer): boolean; begin   var s1: =n.tostring;   result: =(s1=(n*n).tostring.right(s1.length)) end; begin   var a,b: integer;   write('введите а и b: '); read(a,b);   for var i: =a to b do       if automorph(i) then print(i) end. тестовое решение: введите а и b: 1 10000 1 5 6 25 76 376 625 9376 попробовал переписать функцию в более примитивный вид. по-моему, она не стала проще, только function automorph(n: integer): boolean; begin   var s1: =inttostr(n); // n переводим в строковое представление   var s2: =inttostr(n*n); // n*n переводим в строковое представление   var l1: =length(s1); // длина строки s1   s2: =rightstr(s2,l1); // правые l1 символов из s2   result: =(s1=s2) end;

Program massivy; var array1: array [1..10]  of integer;       i, b: integer; begin   for i: =1 to 10 do       array1[i]: =random(-10, 10);   for i: =1 to 4 do begin       for b: =1 to 4 do           if array1[b] > array1[b+1] then               swap(array1[b], array1[b+1]);   end;   for i: =5 to 9 do begin       for b: =5 to 9 do           if array1[b] < array1[b+1] then               swap(array1[b], array1[b+1]);   end;   for i: =1 to 10 do       writeln(array1[i]); end.