Меню сайта

Задача №18

Дан радиус шара. Найти его объем.


Program begin_18-

uses crt-

var r,V: real-

Begin

ClrScr-

Writeln(‘введите радиус r’)- readln(r)-

V:=4/3*PI*sqr(r)*r-

writeln(‘объем равен’,v:4:2)-

Readln-

end.

Категория: Линейные программы | Дата: 01.12.12

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