Меню сайта

Задача №5
Дана длина ребра куба —a. Найти объем куба —V= —a3 -и площадь его поверхности —S —= 6a2
Program ploshad-
Uses crt-
Var a,v,s :real-
Begin
Clrscr-
Writeln(‘введите ребро‘)- readln(a)-
V:=sqr(a)*a-
S:=6*a*sqr(a)-
Writeln(‘объем равен:­ ‘,V:5:3)-
Writeln(‘Площадь равна ‘,S:5:3)-
readln-
End.
Категория: Линейные программы | Дата: 28.11.12

Меню раздела
Блок