Question

Помогите решить программы на Паскале. Очень срочно
Там 60 баллов

Answer 1

Ответ:

Объяснение:

var  

 P,S:real;

 

 begin

   writeln('Введите значение периметра квадрата');

   readln(P);

   S:= P*P/16;

   

   writeln('Площадь квадрата = '+S);

 end.

var  

 b,S:real;

 

 begin

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

   readln(b);

   S:= 6*Sqr(b);

   

   writeln('Площадь поверхности куба = '+S);

 end.