На школьном дворе разбивают 4 клумбы прямоугольной формы. первая клумба представляет собой квадрат со стороной 21 метров. вторая клумба имеет форму прямоугольника, его стороны — 21 и 3 метра. стороны третьей клумбы равны 3 метра. четвёртая клумба представляет собой прямоугольник со сторонами 21 и 3 метра. сколько всего провода нужно для обозначения границ данных клумб?

1) 21 * 4 = 84 (м) - нужно для первой клумбы

2) (21 + 3) * 2 = 42 (м) - нужно для второй клумбы

3) 3 * 4 = 12 (м) - нужно для третьей клумбы

4)  (21 + 3) * 2 = 42 (м) - нужно для четвертой клумбы

5) 84 + 42 + 12 + 42 = 180 (м)

ответ: всего нужно 180 метров провода

Program ToDec;

Uses crt;
var s:string;
n,l,i:integer;

 

function Pow(x,y:integer):integer;
begin
     if y>0 then Pow:=Pow(x,y-1)*x
               else Pow:=1;
end;

function ToDec(A : string) : integer;
var L : Byte;
begin
      if A = '' then ToDec := 0
                else begin
                              L := length(A);
                               case A[1] of
                                     '0' : ToDec := ToDec(Copy(A, 2, L - 1));
                                     '1' : ToDec := Pow(2, L - 1) + ToDec(Copy(A, 2, L - 1));
                                end;
     end;
end;

begin
     clrscr;
     write('Введите двоичное число: ');
     readln(s);
      writeln('Это число в десятичной системе : ', ToDec(S));
 readkey;
end.

 

 

 

Program Vby_1;
uses crt;
var a,b,c:real;
begin
  writeln('***   Alphaues is thinking...   ***');
  writeln('Ok, введите катеты: ');
  write('a= ');readln(a);
  write('b= ');readln(b);
  writeln('Периметр прямоугольного треугольника = ',a+b+sqrt(a*a+b*b):8:2);
end.

Program Vby_2;
uses crt;
var a,b,h,t:real;
begin
  writeln('***   Alphaues is thinking...   ***');
  writeln('Ok, введите данные: ');
  write('Одно основание = ');readln(a);
  write('Другое основание = ');readln(b);
  write('Высота = ');readln(h);
  t:=abs(a-b)/2;
writeln('Периметр трапеции =',a+b+sqrt(h*h+t*t):8:2);
end.

Program Vby_3;
uses crt;
var s:integer;
begin
  writeln('***   Alphaues is thinking...   ***');
  write('Ok, введите расстояние в сантиметрах: '); readln(s);
  write('Число полных метров = ',s div 100);
end.