Заданы поверхность шарового сегмента sшарсег и поверхность конуса sкон, вместе образующие шаровый сектор. заданы радиус шара r и высота шарового сегмента n, принадлежащая шаровому сектору. вычислить поверхность шарового сектора sшар сект и его объем v. если v< 50, то вычислить отношение поверхностей шарового сегмента к поверхности конуса sшар./sкон. написать это на языке паскаль

Var  r,h,s1,s2,s,v: real; begin write('поверхность шарового сегмента: '); readln(s1); write('поверхность конуса: '); readln(s2); write('радиус шара: '); readln(r); write('высота шарового сегмента: '); readln(h); s: =2*pi*r*h+pi*r*sqrt(2*r*h-sqr(h)); v: =2/3*pi*sqr(r)*h; writeln('площадь шарового сектора: ',s); writeln('объем шарового сектора: ',v); if v< 50 then writeln('отношение площадей: ',s1/s2) end.

Яв не силён, поэтому не смогу . но если ты напишешь как эту решить то я смогу написать программу.

Вводите путь к файлу, кол-во букв и цифр будет в консоли и в конце файла

using System;

using System.IO;

using System.Text;

namespace Program

{

   class Program

   {

       static void Main(string[] args)

       {

           string inputFilePath = Console.ReadLine();

           string inputStr = File.ReadAllText(inputFilePath);

           int letters = 0, digits = 0;

           foreach (var s in inputStr)

           {

               if (char.IsLetter(s))

                   ++letters;

               else if (char.IsDigit(s))

                   ++digits;

           }

           File.AppendAllText(inputFilePath, $"Letters: {letters}, Digits: {digits}");

           Console.WriteLine($"Letters: {letters}\n\rDigits: {digits}\n\r");

           Console.ReadKey();

       }

   }

}

var

 A: array[1..100, 1..100] of integer;

 i, j,n,m: integer;

begin

 Writeln('Введите N and M');

 Read(n,m);

 Randomize;

 Writeln('Исходная матрица');

 for i := 1 to N do

 begin

   for j := 1 to M do

   begin

     a[i, j] := Random(-100, 100);

     write(A[i, j]:5);

   end;

   writeln;

 end;

 Writeln('Измененная матрица');

 for i := 1 to N do

 begin

   for j := 1 to M do  

   begin

     if A[i, j] > 0 then a[i, j] := 1;

     if A[i, j] < 0 then a[i, j] := 0;

     Write(a[i, j]:5);

   end;

   Writeln;

 end;

end.