Pascal. определить, образуют ли цифры числа симметричную последовательность

Var   i, a, b, n, n2, j: longint;   s: string;   flag: boolean; begin   write('введите натуральное число больше 11: ');   readln(a);   if a < = 11 then writeln('11 - первое симметричное число')   else begin       str(a, s);       n : = length(s); n2 : = n div 2; flag : = true; i : = 1;       repeat           flag : = (s[i] = s[n - i + 1]);           i : = i + 1       until (not flag) or (i > n2);       if flag then write('число симметричное')       else write('число несимметричное')   end; end. тестовое решение: введите натуральное число больше 11: 123454321 число симметричное

  решений существует два

1) суммирование ряда, предусмотрев что сщгтеук будет большим

counter : = 0;

for(i: =1213, i< =1210113; i++)

  counter : = counter+i;

 

 

2) вывод формулы как известно суммой ряда натуральных чисел можно считать n(n+1)/2, следовательно, частичной суммой рядо соответственно будет n(n+1)/2-k(k+1)/2+k, и применительно к нашей

605057*1210113 - 607*1213 + 1213 =  732186606363

 

преобразование к 5 системе счисления не имеет никаких проблем, делим на 5 записываем остаток, и так пока число не кончится, остатки в обратном порядке и будут искомым числом

т.е.  43444004232400423

 

 

 

 

 

 

 

 

 

   

 

 

 

 

{найти сумму и произведение 4 чисел ведённых с клавиатуры }var      i, n: integer;       s, p, num: real; begin      n : = 4;       p : = 1;       for i : = 1 to n do       begin              read(num);               s : = s + num;               p : = p * num;       end;       writeln(s,' ', p); end.