Нужно составить программу на паскале авс вот по этой запросить сторону равностороннего треугольника а)периметр б)площадь в)радиус описанной окружности

это б)

uses crt;

var s,b,h: real;

begin

writeln('введите b,h': );

readln(b,h);

s: =1/2*b*h;

writeln('s=',s);

readln;

end.

 

а)

uses crt;

var a,b,c,p: integer;

begin

writeln('введите a,b,c': );

readln(a,b,c);

p: =a+b+c;

writeln('p=',p);

readln;

end.

 

в)

uses crt;

var a,b,c,s,r1,r: real;

begin

writeln('введите a,b,c,s': );

readln(a,b,c,s);

r1: =a*b*c;

r: =r1/4*s;

writeln('r-',r);

readln;

end.

 

{pascal abc.net}

var a: array[1..18] of integer;

s1,s2,s3: string;

i,max1,max2,max3: integer;

begin

max1: =0;

max2: =0;

max3: =0;

s1: ='обязательная: ';

s2: ='короткая: ';

s3: ='произвольная: ';

for i: =1 to 18 do

readln(a[i]);

for i: =1 to 18 do

begin

if (i< =6) and (a[i]> max1) then max1: =a[i];

if (i> 6) and (i< =12) and (a[i]> max2) then max2: =a[i];

if (i> 12) and (a[i]> max3) then max3: =a[i];

  end; writeln(s1+max1); writeln(s2+max2); writeln(s3+max3); end. 

№1: int(-5,89)= -5int(0,53)=0round(-5,8)=-6round(5,2)=5frac(-17,4)=0,4frac(0,32)=0,32trunc(-17,4)=-17trunc(15,2)=1545 div 4=1115 mod 8=7(489 div 10) mod 10=8 №2: а=1, в=2;       a=2а=3, в=3;       a=0а=4, в=2;       a=2а=-3, в=5      a=-15 №3: var m,s: integer; beginreadln(m); readln(s); if s> m then writeln('саша старше маши')              else if m> s then writeln('маша старше саши ')                          else writeln('саша и маша ровесники'); end. №4: var a: real; beginwrite('введите число: '); readln(a); if a> 0 then a: =a/7              else a: =a*a; writeln(a); end. №5: var a,b: real; beginwrite('введите первое число: '); readln(a); write('введите второе число: '); readln(b); if a> b then writeln('наибольшее число: ',a)              else writeln('наибольшее число: ',b); end. №6: var a,b,c,p: real; beginwrite('введите первое число: '); readln(a); write('введите второе число: '); readln(b); write('введите третье число: '); readln(c); if a> b then if a> c then p: =a                                      else p: =c            else if b> c then p: =b                                      else p: =c; writeln('наибольшее число: ',p); end. №7: var a,b,c,d,p: real; beginwrite('введите первое число: '); readln(a); write('введите второе число: '); readln(b); write('введите третье число: '); readln(c); write('введите четвертое число: '); readln(d); if a> b then if a> c then p: =a                                      else p: =c            else if b> c then p: =b                                      else p: =c; if p< d then p: =d; writeln('наибольшее число: ',p); end. №8: var a: real; begina: =0; while a< 7.9 dobegin  write('введите скорость ракеты: ');   readln(a);   if (a> =7.9) and (a< 11.2) then writeln('ракета станет спутником земли')      else if (a> =11.2) and (a< 16.6) then writeln('ракета станет спутником cолнца')                  else if a> =16.6 then writeln('ракета покинет cолнечную систему')                                                  else writeln('требуется повторный ввод скорости'); end; end.