Задание.
Введите с клавиатуры два целых числа - длины сторон прямоугольника. Выведите на экран периметр и площадь прямоугольника.
Заранее спасибо)
Введите с клавиатуры два целых числа - длины сторон прямоугольника. Выведите на экран периметр и площадь прямоугольника.
Заранее спасибо)
More Questions From This User See All
Answers & Comments
Verified answer
Var a,b,p,s:integer;begin
write('a = ');
readln(a);
write('b = ');
readln(b);
p:=2*(a+b);
s:=a*b;
writeln('p = ',p,' s = ',s);
end.
Пример:
a = 4
b = 7
p = 22 s = 28