Помогите решить задачу по abc pascal даны стороны прямоугольника а и b. найдите периметр и полщадь
S=a*b P=2*(a+b)
a=6.90 b=5.80
буду очень благодарна!

1

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

Лучший Ответ!
2014-02-12T17:48:23+04:00
Var
a,b,p,s:real;
begin
  Writeln('Введите значение а = ');
  read(a);
  writeln('Введите значение b = ');
  read(b);
  s:=a*b;
  p:=2*(a+b);
  writeln('Площадь = ',s);
  Writeln('Периметр = ', p);
end.