Структура файлу реляційної бази даних (БД) змінюється:

Program massiv;
Const N=10;
Var Rmin: integer;
j,i:integer;
C:array[1..N] of real;
T:array[1..2*N]of real;
Begin
For i:=1 to N do Begin
C[i]:=sqrt(i)* sin(2*i)/cos(2*i);
Write(C[i]:5:2, ' ');
End;
writeln('');

For i:=1 to N-1 do begin
T[i]:=C[i+1]-C[i];
T[N+i-1]:=C[i]-C[i+1];
end;

Rmin:=1;
for i:=2 to 2*N-2 do begin
if T[i]<T[Rmin] then
Rmin:=i;
end;

if Rmin<N then
writeln('naimenshaya raznost= ', Rmin+1, ' and ', Rmin, ' elementiv' )
else
writeln('naimenshaya raznost= ', Rmin-N+1, ' and ', Rmin-N+2, ' elementiv' );
end.

№1

var
a,b,v:real;
begin
readln(a,b);
v:=4/3*Pi*sqr(b/2)*(b/2);
a:=sqr(a)*a;
v:=a-v;
writeln(v:7:4);

end.

№2

var
s:string[6];
begin
readln(s);
if ((strtoint(s[1])+strtoint(s[2])+strtoint(s[3]))=
(strtoint(s[4])+strtoint(s[5])+strtoint(s[6]))) then
writeln('Является') else
writeln('Не является');

end.

№3

var
a,b:integer;
begin
readln(a,b);
if (a<90) and (b<90) and (180-a-b<90) then
writeln('Остроугольный') else
if (a=90) or (b=90) or (180-a-b=90) then
writeln('Прямоугольный') else
writeln('Тупоугольный');
end.