Ответ:

Все программы я писал для целых чисел (1, 2, 3, ...). Если у вас в задании будет дробные числа (1.2, 2.3., ...), то поменяйте в var тип данных с integer на real

Язык программирования - Pascal:

program z1;

var p, x, y: integer;

begin

writeln('Введите длину прямоугольника');

readln(x);

writeln('Введите ширину прямоугольника');

read(y);

p:=(x+y)*2;

write('Периметр прямоугольника = ', p);

end.

Данный вариант программы подходит только тогда, когда параллельные стороны прямоугольника равны

Программа, если все стороны разные (работает в 400% на любой случай):

program z1;

var p, a, b, c, d: integer;

begin

writeln('Введите длину  1-ой стороны прямоугольника');

readln(a);

writeln('Введите длину  2-ой стороны прямоугольника');

readln(b);

writeln('Введите длину  3-ей стороны прямоугольника');

readln(c);

writeln('Введите длину  4-ой стороны прямоугольника');

readln(d);

p:=a + b + c + d;

write('Периметр прямоугольника = ', p);

end.

Объяснение:

С++:

#include <iostream>

#include <cstdlib>

using namespace std;

int main() {

int a, b, c, d, p;

cout<<"Введите длину 1-ой стороны прямоугольника: ";

cin>>a;

cout<<"Введите длину 2-ой стороны прямоугольника: ";

cin>>b;

cout<<"Введите длину 3-ей стороны прямоугольника: ";

cin>>c;

cout<<"Введите длину 4-ой стороны прямоугольника: ";

cin>>d;

p = a + b + c + d;

cout<<"Периметр прямоугольника равен " << p <<endl;

system ("pause>nul");

return 0;

}