Question

Помогите пожалуйста с заданием,даю 60 баллов.

Answer 1

Ответ:

1)

var

 a, b, s, p : double;

begin

 write('Введите стороны прямоугольника через пробел: ');

 readln(a,b);

 s := a*b;

 p := (a+b)*a;

 writeln('Площадь = ', s, ' Периметр = ', p);

end.

2)

var

 d, r : double;

begin

 write('Введите радиус: ');

 readln(r);

 d := 2*r;

 writeln('Диаметр = ', d);

end.

3)

var

 a, v, s : double;

begin

 write('Введите длину ребра куба: ');

 readln(a);

 v := a*a*a;

 s := 6*a*a;

 writeln('Объём = ', v, ' Площадь = ', s);

end.

Объяснение: