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

Да се въведат страните на правоъгълник и да се пресметне лицето и обиколката му.

 

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

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

  1. Xboxx_ каза:
     program Project1;
     Var a,b,p,s : integer ;
    
    
    begin
    WriteLn ('vuvedi strana ') ; ReadLn (a,b) ;
    p:= 2*a+2*b;
    s:=a*b;
    WriteLn ('obikolkata e:',P);
    WriteLn ('liceto ' ,s);
    ReadLn ;
    end.
                                            
  2. kaloyan каза:
     program project1;
    VAR a,b,p,s : integer;
    
    BEGIN
      write('vavedi strana: '); readln(a,b);
      p:=(a*2)+(b*2);
      s:=a*b;
      writeln('obikolkata e: ',p);
      writeln('liceto e: ',s);
    readln;
    END.   

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