Написать програму вычесления площади и периметра прямоугольника, если извесна длина сторон a, b. (Всё это дольжно выгледит програмай для паскаль ADC)

Question

Информатика

Панфил

12 мая, 13:47

Написать програму вычесления площади и периметра прямоугольника, если извесна длина сторон a, b. (Всё это дольжно выгледит програмай для паскаль ADC)

+4

Ответы (1)

Знаете ответ?

Настеха · Answer 1

Var

a, b, P, S:integer;

begin

writeln ('Введите а и b') ;

read (a, b) ;

S:=a*b;

P: = (a+b) * 2;

writeln ('Периметр равен = ', P) ;

writeln ('Площадь равна = ', S) ;

end.