Задание:
Написать программу, еоторая вычесляет площадь и периметр прямоугольника по двум егосторонам
Решение:
program test; var a, b, c: integer; begin write ('Enter a, b: '); readln (a, b); writeln ('S=', a*b); writeln ('P=', (a+b)*2); readln; end.
Знаете другой ответ?