Лице и обиколка на правоъгълник

Публикувано на 25 ноември, понеделник от Данаил

Напишете програма, която при въвеждане на дължината на страните отпечатва лицето и обиколката на правоъгълник (вижте за пример задачата за лице и обиколка на кръг).

Публикувано в 10a, 10б с етикети . Постоянна връзка.

8 Responses to Лице и обиколка на правоъгълник

  1. Elitsa каза:
    25 ноември, понеделник в 16:32 
    program project1;

var
S, a, b , P : Real ;
begin
  Write('Vavedete stranite:');
  ReadLn(a,b);

  S:= a*b ;
  P:=  2*a+2*b   ;
 Writeln('Obikolkata e ', P:5:3);
  WriteLn('Liceto e ', S:5:3);
  ReadLn;
end.
  2. cwettelinaa каза:
    25 ноември, понеделник в 16:39 
    program project1;
const
  Pi = 3.14;
var
  R, S, P: Real;
begin
  Write('Vavedete stranite:');
  ReadLn(A, B);

  S:= A*B;
  P:= 2A+2B;

  Writeln('Obikolkata e ', P:6:2);
  WriteLn('Liceto e ', S:6:2);
  ReadLn;
end.
  3. Mladen96 каза:
    25 ноември, понеделник в 16:41 
     
program project1;

var
a, b, S, P: Real;

begin
Write ('Vavedete stranite :');
ReadLn (a);
ReadLn (b);

S:= a*b;
P:= 2*a+2*b;

WriteLn ('Obikolkata e', P:5:3);
WriteLn ('Liceto e', s:5:3);
ReadLn;

end.
  4. teriinkaa17 каза:
    25 ноември, понеделник в 16:41 
    program Project1;

var
  a,b, S, P: Real;
begin
  Write('Vavedete stranite:');
  ReadLn(a);
  ReadLn(b);

  S:= a*b;
  P:= 2*a+2*b;

  Writeln('Obikolkata e ', P:5:3);
  WriteLn('Liceto e ', S:5:3);
  ReadLn;
end.
  5. Niki i Stella каза:
    27 ноември, сряда в 16:38 
     program project1;

var
 a, b, S, P: Real;
begin
  Write('Vavedete a:');
  ReadLn(a);
  Write('Vavedete b:');
  ReadLn(b);

  S:= a*b;
  P:= 2*a+2*b;

  Writeln('Obikolkata e ', P:5:3);
  WriteLn('Liceto e ', S:5:3);
  ReadLn;
end.
  6. Mimi.Mishi каза:
    27 ноември, сряда в 16:38 
    program project1;

var
  a, b, S, P: Real;
begin
  Write('Vavedete a:');
  ReadLn(a);
  Write ('Vavedete b:') ;
  ReadLn (b);

  S:= a*b;
  P:= 2*a + 2*b;

  WriteLn;
  Writeln('Perimetara e ', P:5:3);
  WriteLn('Liceto e ', S:5:3);
  ReadLn;
end.
  7. Maggie i Cveti каза:
    27 ноември, сряда в 16:41 
     program project1745;

var
  a, b, S, P: Real;
begin
  Write('Vavedete a:');
  ReadLn(a);
  Write('Vavedete b:');
  ReadLn(b);

  S:= a*b;
  P:= 2*a+2*b;

  Writeln('Obikolkata e ', P:5:3);
  WriteLn('Liceto e ', S:5:3);
  ReadLn;
end.

Вашият коментар