C++ Задача 5.
Даны катеты прямоугольного треугольника. Найти его гипотенузу и площадь. Данные взять из контрольного примера.
Контрольный пример: A=4, B=3. Результат: гипотенуза = 5,
площадь = 6.

1)
var
    s: string[6];
    n: integer;

begin
    s := 'отлично';
    n := length(s);
    writeln(length('отлично'));
    writeln(n);
end.

Изначально выставлен тип string[6], значит если присвоить строку больше, то ее обрежет по 6 символов, вот и весь прикол
ответ 6

2) рисунок

3)var
    s, s1: string;
    n: integer;

begin
    s := 'информатика';
    s1 := copy(s, 3, 5);
    n := pos(s, s1);
    writeln('s=', s);
    writeln('s1=', s1);
    writeln('n=', n);
end.

Вывод
s=информатика
s1=форма
n=0

Все верно, в s1 не содержится s, а наоборот

см.пояснение

Объяснение:

#include <iostream>

#include <cstdlib>

#include <ctime>

using namespace std;

const int n=499;

int main() {

   srand(time(0));

int arr[n],min=100,max=-100,iter=0,mediana;

for (int i=0;i<n;i++){

 arr[i]=rand()%200-100;

 if (min>arr[i])

  min=arr[i];

 if (max<arr[i])

  max=arr[i];

}

for (int i=0;i<n;i++){

 if(arr[i]==max)

  iter++;

}

int swap;

for (int i=0;i<n-1;i++){

 for (int j=i+1;j<n;j++){

  if (arr[i]>arr[j]){

   swap=arr[i];

   arr[i]=arr[j];

   arr[j]=swap;

  }

 }

}

mediana=n/2+1;

mediana=arr[mediana];

cout<<"min = "<<min<<endl;

cout<<"max = "<<max<<" povtorov: "<<iter<<endl;

cout<<"mediana = "<<mediana;

return 0;

}