Ограждане на двор с мрежа

Един човек има правоъгълен двор, който иска да огради с мрежа. Напишете програма, която пресмята колко линейни метра мрежа ще му е нужна, за да огради двора и колко ще струва това при дадена цена на един линеен метър.

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

Един коментар по Ограждане на двор с мрежа

  1. bettyful каза:
     Program E;
    var a,b,p,cena,pari:integer;
    begin
    write ('Vavedi a=');
    readln (a);
    write ('Vavedi b=');
    readln (b);
    p:= 2*a+2*b;
    writeln ('P e ',p);
    write ('Vavedi cena=');
    readln (cena);
    writeln ('Parite sa ', (p*cena));
    readln;
    end.     

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