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

Question

Информатика

Пинна

18 октября, 05:50

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

+1

Ответы (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.