Удав лежал, вытянувшись во всю длину, как известно составляющую целое число попугаев. прибежала мартышка, отмерила к попугаев от носа удава и нарисовала ананасом точку. потом задумалась, и согнула удава так, что его тело образовало квадрат со стороной а, а хвост коснулся носа, образовав прямой угол. при этом, удав сделал ровно один оборот. теперь мартышка хочет узнать новое расстояние от носа удава до отмеченной точки. толщиной удава следует пренебречь. входные данные: 2 натуральных числа к и а – расстояние от носа удава, на котором отмечена точка ананасом (в начале, до сворачивания) и сторона квадрата, в который мартышка согнула удава. (1 ≤ к ≤ 4а ≤ 200). результат: единственное вещественное число, не менее чем с 2 знаками после точки – новое расстояние от носа удава до нарисованной

// PascalABC.Net 3.0, сборка 1066

const
  n=5;
var
  a:array[1..n,1..n] of integer;
  x:array[1..n] of double;
  i,j,k:byte;
begin
  Randomize;
  Writeln('*** Исходный массив ***');
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=Random(51)-25;
      Write(a[i,j]:4)
      end;
    Writeln
  end;
  Writeln('*** Массив x ***');
  for j:=1 to n do begin
    x[j]:=0; k:=0;
    for i:=1 to n do
      if a[i,j] mod 2=0 then begin
        x[j]:=x[j]+a[i,j]; Inc(k)
      end;
    if k>0 then x[j]:=x[j]/k;
    Write(x[j]:0:5,' ')
    end;
  Writeln
end.

Тестовое решение:
*** Исходный массив ***
 -10  18  -8 -15   5
 -21 -18   6  -2   9
  -7  22  -4   3  14
  21  16 -10 -18  -9
  17   3 -14 -18  12
*** Массив x ***
-10.00000 9.50000 -6.00000 -12.66667 13.00000

#include <stdio.h>
#include <math.h>
#include <stdlib.h>
#include <conio.h>

int main() {
   double a, b, y;
   int x;

   a = 6.72f;
   b = 4.85f;
   printf("vvedite x=");
   scanf("%d", &x);

   switch (x) {
       case 1: y = 1 + sqrt(a + abs(x)); break;
       case 7: y = 2 + a*a*x*x + exp(x); break;
       case 5: y = x*sqrt(1+b*log(a*a*x)); break;
       default:
          printf("znachenie x zadano neverno\n");
          printf("nagmi Enter\n");
          getch();
          return 0;
   }

   printf("x=%2dy=%5.2lf", x, y);
   getch();
   return 0;
}