Написать программу вычисления и вывода на экран периметра и площади прямоугольника.Помогите пожалуйста очень нужно!За ранее спасибо!
Answers & Comments
BrightOne
При условии, что стороны прямоугольника вводятся с клавиатуры и являются целыми числами:
program p_s; var a,b,p,s:integer; begin write('введите сторону a: '); readln(a); write('введите сторону b: '); readln(b); p:=(a*2)+(b*2); writeln('периметр: ', p); s:=a*b; writeln('площадь: ', s); end.
Answers & Comments
program p_s;
var
a,b,p,s:integer;
begin
write('введите сторону a: ');
readln(a);
write('введите сторону b: ');
readln(b);
p:=(a*2)+(b*2);
writeln('периметр: ', p);
s:=a*b;
writeln('площадь: ', s);
end.