Написать програму вычесления площади и периметра прямоугольника , если извесна длина сторон a, b.(Всё это дольжно выгледит програмай для паскаль ADC)
Написать програму вычесления площади и периметра прямоугольника , если извесна длина сторон a, b.(Всё это дольжно выгледит програмай для паскаль ADC)
Гость
Ответ(ы) на вопрос:
Гостьvar
a,b,P,S:integer;
begin
writeln('Введите а и b');
read(a,b);
S:=a*b;
P:=(a+b)*2;
writeln('Периметр равен = ',P);
writeln('Площадь равна = ',S);
end.
Не нашли ответ?
Похожие вопросы