помогите безотлагательно.необходимо до завтра

Помогите срочно.нужно до завтра

Задать свой вопрос
1 ответ
Uses math;
var r, h, V, S, L: real;

begin
r := 5.2; h := 11;

V := (1/3) * Pi * power(R, 2) * h;
L := sqrt(power(h, 2) + power(r, 2));
S := Pi * r * (r + L);

writeln('V: ', V, ' cm');
writeln('S: ', S, ' cm');
end.
Витя
Пренебрегал упомянуть... Компилировал на FPC 3.0.0
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт