Даны стороны прямоугольника a и b. найдите его площадь s=a*b и периметр p=2*(a+b). входные данные: ввести два числа a и b (1< =a,b< =100) выходные данные: вывести два числа через один пробел площадь и периметр прямоугольника.
Uses crt; var a, b, S, P:integer; begin write('a='); readln(a); write('b='); readln(b); S:=a*b; P:=2*(a+b); write('S=',S,' ','P=',P); end. p.s.Где мы выводим на экран значения площади,там после второй S запятая,затем два апострофа через пробел(для пробела в итоге),затем запятая,потом вывод периметра идет аналогичным образом,вот! Спрашивайте,если что не понятно!
var a, b, S, P:integer;
begin
write('a='); readln(a);
write('b='); readln(b);
S:=a*b; P:=2*(a+b);
write('S=',S,' ','P=',P);
end.
p.s.Где мы выводим на экран значения площади,там после второй S запятая,затем два апострофа через пробел(для пробела в итоге),затем запятая,потом вывод периметра идет аналогичным образом,вот! Спрашивайте,если что не понятно!