Напишите программу, которая зачисляет площадь и периметр прямоугольника по длинам двух его сторон

Question

Информатика

Валерьян

25 сентября, 03:46

Напишите программу, которая зачисляет площадь и периметр прямоугольника по длинам двух его сторон

+4

Ответы (1)

Знаешь ответ?

Матрона · Answer 1

Program pr;

uses crt;

Var a, b, p, s:real;

Begin

Writeln ('Введите сторону a');

readln (a);

Writeln ('Введите сторону b');

readln (b);

s:=a*b;

p:=2 * (a+b);

Writeln ('Площадь = ', s);

Writeln ('Периметр = ', p);

readln;

end.