Question

Помогите с Информатикой, очень срочно надо.
За помощь дам 20 баллов! <3
Надеюсь сможете быстро помочь

Answer 1

Задачи разбиты решётками

var a, b, c, d, sub1, sub2, total: real;

 

procedure max_of_2(a, b: real; var max: real);

begin

       if a > b then max:= a else max:= b;

end;

 

begin

       read(a, b, c, d);

       max_of_2(a, b, sub1);

       max_of_2(c, d, sub2);

       max_of_2(sub1, sub2, total);

       writeln(total);

end.

 

###############################################

 

var a, b, sub: integer;

       total: real;

 

procedure nod(k, l: integer; var c: integer);

begin

       repeat

             if k > l then

                       k := k mod l // тут алгоритм архимеда

             else

                       l := l mod k;

             until (k = 0) or (k = 0);

       c := k + l;

end;

 

begin

       readln(a, b);

       nod(a, b, sub);

       total:= (a * b) / sub;

       writeln(total);

end.

 

################################################

 

var k, resl: real;

 

procedure geron(a, b, c: real; var res: real);

var p: real;

begin

       p:= (a + b + c) / 2;

       res:= sqrt(p * (p - a) * (p - b) * (p - c));

end;

 

begin

       readln(k);

       geron(k, k, k, resl); // площадь правильного шестиугольника                              

       resl:= resl * 6;           // это 6 площадей равностороннего треугольника со

       writeln(resl);           // стороной этого шестиугольника

end.