Вычислить и вывести значения периметра 30 прямоугольников при различных значениях их сторон (А>0 и B>0), Pascal.
Вычислить и вывести значения периметра 30 прямоугольников при различных значениях их сторон (А>0 и B>0), Pascal.
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program RectanglePerimeter;
var
A, B, P: Integer;
i: Integer;
begin
for i := 1 to 30 do
P := 2*(A + B);begin
writeln('Rectangle ', i);
write('Enter length A: ');
readln(A);
write('Enter width B: ');
readln(B);
writeln('Perimeter of the rectangle: ', P);
writeln;
end;
end.