напишите программу вычисляющую площадь и периметр прямоугольника. Стороны прямоугольника вводятся с клавиатуры.

Program Rectangle;var a, b, s, p: integer;Begin //Ввод сторон write('Длина прямоугольника -> '); readln(a); write('Ширина прямоугольника -> '); readln(b); //Площадь s := a * b; writeln('Площадь прямоугольника: ', s); //Периметр p := 2 * a + 2 * b; writeln('Периметр прямоугольника: ', p);End.

Файл как, скачивается?

да

спасибо, еще раз!

Всегда пожалуйста! Рад помочь!

n:=a*b; **

Сделал программу на PascalABC, в файле.

var a, b, n, p: integer; // Переменные целочисленного типа.beginwrite('Длина: '); readln(a); // Задаём длину нашему треугольнику.write('Ширина: '); readln(b); // Задаём ширину нашему треугольнику.  n:=a*b // Формула что-бы узнать площадь прямоугольника.   write('Площадь: ',b); // Выводим площадь на экран.  p:=2*a+2*b; // Формула что-бы узнать периметр треугольника.   write('Периметр: ',p); // Выводим периметр на экран.end.