Решит в excel с разных функций:
нормальный пульс человека 60 ударов в минуту, давление 120 на 80. при отборе в школу космонавтов допуск по пульсу равен от 59 до 63; допуск по нижнему значению давления от 77 до 83, по верхнему – от 120 до 125. определить, пройдет ли медкомиссию данный претендент (вводятся пульс, верхнее значение давления и нижнее значение давления).

1. var a: array[1..10] of integer;
          i, kol: Integer;
Begin
  for i := 1 to 10 do read(a[i]);
  kol := 0;
  for i := 1 to 10 do
    if a[i] mod 2=0 then
    begin
      kol := kol + 1;
      write(a[i],' ');
    end;
  writeln;
  writeln(kol);
End.
2. var a: array[1..10] of integer;
    i, kol: Integer;
Begin
  for i := 1 to 10 do read(a[i]);
  kol := 0;
  for i := 1 to 10 do
    if a[i] > 9 then
    begin
      kol := kol + 1;
      write(a[i],' ');
    end;
  writeln;
  writeln(kol);
End.
3. var a: array[1..10] of integer;
    i: Integer;
Begin
  for i := 1 to 10 do read(a[i]);
  for i := 1 to 10 do
    if a[i] mod 2=0 then write(a[i],' ');
  for i := 1 to 10 do
    if a[i] mod 2=1 then write(a[i],' ');
End.
4. var a: array[1..10] of integer;
    i, r: Integer;
Begin
  for i := 1 to 10 do read(a[i]);
  i := 1;
  while i < 10 do
    if a[i+1] < a[i] then begin
      r := a[i+1];
      a[i+1] := a[i];
      a[i] := r;
      i := 1;
    end else i := i + 1;
  for i := 1 to 10 do
    if a[i] mod 2=0 then write(a[i],' ');
  for i := 1 to 10 do
    if a[i] mod 2=1 then write(a[i],' ');
End.
5. var a: array[1..10] of integer;
    i, kol: Integer;
Begin
  for i := 1 to 10 do read(a[i]);
  for i := 1 to 10 do
    if a[i] mod 10 = 5 then kol := kol + 1;
  writeln(kol);
End.

Задание 1

Для получения корня между и n = 1.

Задние 2

nh = A div C - количество квадратов умещающихся по-вертикали

nw = B div C - количество квадратов умещающихся по-горизонтали

n = nh * nw = общее количество квадратов.

Sr = A * B - 2*C*C

Код:

using System;namespace ThisAnswerIsNotMine {    class Program    {        private static void Eq(double a)        {            var x = Math.Atan(1 / (Math.Exp(a) + 1)) + Math.PI;            Console.WriteLine($"Для a = {a}, x = {x}");        }                private static void Squares(int A, int B, int C)        {            int nh = A / C;            int nw = B / C;            int n = nh * nw;            int Sr = A * B - 2*C*C;                        Console.WriteLine($"Количество квадратов со стороной {C} в прямоугольнике размером {A}x{B} равно: {n}");            Console.WriteLine($"Площадь оставшегося куска {Sr}");        }        private static void Main()        {            Eq(double.Parse(Console.ReadLine()!));            Squares(int.Parse(Console.ReadLine()!), int.Parse(Console.ReadLine()!), int.Parse(Console.ReadLine()!));        }    }}