Нужна программа: найти площадь грани, площадь боковой поверхности и объем куба - Turbo Pascal
Формулировка задачи:
по ребру найти площадь грани, площадь боковой поверхности и объем куба!! Заранее спасибо)
Решение задачи: «Нужна программа: найти площадь грани, площадь боковой поверхности и объем куба»
textual
Листинг программы
Uses crt; Var r,g,b,v: Integer; Begin Clrscr; Writeln('Введите ребро: '); Readln(r); g:=Sqr(r); b:=4*Sqr(r); v:=r*r*r; Writeln('Площадь грани: ',g); Writeln('Площадь боковой поверхности: ',b); Writeln('Объем куба: ',v); Readln End.