Question

ПОМОГИТЕ!!1!!! ВСТАВЬТЕ ВМЕСТО А, В СВОИ ЧИСЛА 1) Составить программу для нахождения площади и периметра прямоугольника В ПАСКАЛЕ.
2) Составить программу большего из двух величин вводимых с клавиатуры.

ПОЖАЛУЙСТА!!

Answer 1

Ответ:

{$CODEPAGE UTF8}

program RectangleArea;

var sideA, sideB, area: integer;

begin

write('Длина: ');

readln(sideA);

write('Ширина: ');

readln(sideB);

area := sideA * sideB;

writeln('Площадь прямоугольника: ', area);

readln;

end.

2)

{$CODEPAGE UTF8}

program RectanglePerimeter;

var sideA, sideB, perimeter: integer;

begin

write('Длина: ');

readln(sideA);

write('Ширина: ');

readln(sideB);

perimeter := (sideA + sideB) * 2;

writeln('Периметр прямоугольника: ', perimeter);

readln;

end.

Объяснение:

вроде так