Pascal. сумма квадратов цифр некоторого двузначного числа на 1 больше утроенного произведения этих цифр. после деления этого двузначного числа на сумму его цифр в частном получается 7 и в остатке 6. составить цикл нахождения числа, если он существует.

For i: =1 to 9 do for j: = 0 to 9 do if((i*i+j*j-3*i*j=1)and((i*10+j)div(i+j) = 7)and((i*10+j)mod(i+j) = 7) then write('искомое число',i*10+j); end.

Const   n=10; var   xy: array[1..2*n] of real;   lmax,l: real;   i,imax: integer; begin   randomize;   writeln('координаты точек');   lmax: =0;   for i: =1 to n do   begin       xy[2*i-1]: =101*random-50; { случайное число на [-50..50] }       write(i: 2,xy[2*i-1]: 8: 3);       xy[2*i]: =101*random-50;       writeln(xy[2*i]: 8: 3);       l: =sqr(xy[2*i-1])+sqr(xy[2*i]);       if lmax< l then begin lmax: =l; imax: =i end   end;   writeln('наиболее удалена от начала координат');   writeln('точка a[',imax,'] (',xy[2*imax-1]: 0: 3,',',xy[2*imax]: 0: 3,'),');   writeln('расстояние составляет ',sqrt(lmax): 0: 3) end. тестовое решение: координаты точек   1  -7.758 -12.799   2  14.569  -5.722   3 -20.827    2.768   4  16.387  35.180   5  43.135 -17.903   6  42.006  11.257   7  40.026  -4.777   8 -32.236  33.900   9 -13.453  45.271 10    8.171    7.245 наиболее удалена от начала координат точка a[9] (-13.453,45.271), расстояние составляет 47.227

Const n=10; var a: array[1..n]of integer; min,max,i,s: integer;   begin       for i: =1 to n do           read(a[i]); {вводим последовательность через пробел, последний элемент enter}           min: =1; max: =1; {поиск индекса  мин и макс}               for i: =2 to n do                   begin                       if a[i]< a[min]then                           min: =i;                       if a[i]> a[max]then                           max: =i;                   end; {если индекс мин меньше чем индекс макс то} if max> min then     for i: =min to max do         s: =s+a[i] else {если индекс макс меньше чем индекс мин}     for i: =max to min do         s: =s+a[i]; writeln('  s=  ',s); end.