подскажите формулы. Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и объем этого куба.Блок-схема

1

Ответы и объяснения

  • Anja2405
  • почетный грамотей
2014-03-06T08:21:03+04:00
const r = 5; {длина ребра куба} begin WriteLn('Площадь грани:',r*r,' Полная площадь:',6*r*r,' Объём:', r*r*r); Readln end.



или это:
uses crt;
2var a,s,v:real;
3 begin
4write('введите длинну ребра куба: ');
5read(a);
6 s:=6*(a*a);
7 v:=a*a*a;
8 writeln('площадь боковой поверхности куба: ',s);
9 writeln('объем куба: ',v);
10 end.