Pascal написать программу, для подсчета площади и периметра прямоугольника, если заданы стороны прямоугольника ( сделайте пожалуйста готовое, я не могу понять что как куда вставлять)
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
a, b, s, p: real;
begin
writeln('Введите длину прямоугольника:');
read(a);
writeln('Введите ширину прямоугольника:');
read(b);
s := a * b;
p := 2 * (a + b);
writeln('Площадь прямоугольника = ', p, #10, 'Периметр прямоугольника = ', s);
end.
a, b, s, p: real;
begin
writeln('12');
read(a);
writeln('4');
read(b);
s := a * b;
p := 2 * (a + b);
writeln('48', p, #10, '96 ', s);
end