Задача по теме программирование. По заданным сторонам прямоугольника a и b вычислите его периметр и площадь

Пожалуйста помогите, экзамен скоро.

2

Ответы и объяснения

  • 17497
  • середнячок
2013-06-05T16:14:07+00:00

Program f1;

var a, b, P, S: Real;

Begin

a:=5;

b:=3;

P:=(a+b)*2;

S:=a*b;

Writeln(P;S);

END.

Числа a и b можешь вставить какие хочешь!

  • Sky09
  • профессор
2013-06-05T18:16:41+00:00

uses crt;
var a,b,s,p:real;
begin
  clrscr;
  write('a='); read(a);
  write('b='); read(b);
  s:=a*b;
  p:=2*(a+b);
  write('S=',s,' P=',p);
end.