Нужна программа: найти площадь грани, площадь боковой поверхности и объем куба - 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.

Оцени полезность:

5   голосов , оценка 3.8 из 5
Похожие ответы