Дан символ. Определи, данный символ управляющий или изображаемый. Символ: S

управляющий

Объяснение:

т.к. ASCII являются управляющими символами

1:

var s:longint;

   i,n:byte;

begin

   write('Введите количество членов ряда: '); readln(n);

   for i:=1 to n do s:=s+sqr(i*5);

   write(s);

end.

2:

var v:longint;

   i,n:real;

begin

   write('Введите первоначальный объём (л): '); readln(v);

   n:=30;

   i:=2.5;

   while i <= n do begin

       v:=2*v;

       i:=i+2.5;

   end;

   write('Через 30 часов будет ', v, ' литров');

end.

3:

var nf,mf:longint;

   i,n,m:byte;

begin

   nf:=1;

   mf:=1;

   write('Введите n: '); readln(n);

   write('Введите m: '); readln(m);

   for i:=1 to n do nf:=nf*i;

   for i:=1 to m do mf:=mf*i;

   write('n!+m!=', nf+mf);

end.

4:

var x,s:integer;

   c:byte = 0;

begin

   while true do begin

       write('Введите число (0 для выхода): '); readln(x);

       if x = 0 then break;

       if x < 0 then begin

           s:=s+x;

           inc(c);

       end;

   end;

   if c = 0 then write('Ни одного отрицательного числа не было введено')

   else write('Среднее арифметическое отрицательных значений равно: ', s/c:0:2);

end.

5:

var x,s:integer;

begin

   while true do begin

       write('Введите число (0 для выхода): '); readln(x);

       if x = 0 then break;

       if (x mod 2 = 0) and (x > 0) then s:=s+x;

   end;

   if s = 0 then write('Ни одного чётного положительного числа не было введено')

   else write('Сумма чётных положительных чисел равна: ', s);

end.

6:

var a:Array[1..10] of integer;

   max_v:integer;

   i,max_i:byte;

begin

   a[1]:=random(100);

   max_v:=a[1];

   max_i:=1;

   write(a[1],' ');

   for i:=2 to length(a) do begin

       a[i]:=random(100);

       if a[i] > max_v then begin

           max_v:=a[i];

           max_i:=i;

       end;

       write(a[i],' ');

   end;

   if max_i <> length(a) then begin

       a[max_i]:=a[length(a)];

       a[length(a)]:=max_v;

   end;

   writeln();

   for i:=1 to length(a) do write(a[i], ' ');

end.

1. С=2*Pi*R, S= Pi*R^2, V=4/3*Pi*R^3, где Pi=3,14, заданный радиус R
2. P=a+b, S=1/2*a*b, где a и b - данные катеты
3. Пусть даны координаты трех вершин треугольника A(x1;y1), B(x2;y2), C(x3;y3).
Расстояние между двумя точками вычисляется по формуле

Тогда периметр треугольника можно вычислить по формуле:
P=sqrt((x2-x1)^2+(y2-y1)^2)+sqrt((x3-x2)^2+(y3-y2)^2)+sqrt((x3-x1)^2+(y3-y1)^2).
Площадь треугольника по формуле Герона вычисляется по формуле:
, где -полу периметр треугольника.
S=sqrt((sqrt((x2-x1)^2+(y2-y1)^2)+sqrt((x3-x2)^2+(y3-y2)^2)+sqrt((x3-x1)^2+(y3-y1)^2)/2*(sqrt((x2-x1)^2+(y2-y1)^2)+sqrt((x3-x2)^2+(y3-y2)^2)+sqrt((x3-x1)^2+(y3-y1)^2)/2-sqrt((x2-x1)^2+(y2-y1)^2))*(sqrt((x2-x1)^2+(y2-y1)^2)+sqrt((x3-x2)^2+(y3-y2)^2)+sqrt((x3-x1)^2+(y3-y1)^2)/2-+sqrt((x3-x2)^2+(y3-y2)^2))*(sqrt((x2-x1)^2+(y2-y1)^2)+sqrt((x3-x2)^2+(y3-y2)^2)+sqrt((x3-x1)^2+(y3-y1)^2)/2-sqrt((x3-x1)^2+(y3-y1)^2))
4. Среднее геометрическое трех чисел вычисляется по формуле
или
(a*b*c)^1/3