написать программку на языке паскаль вычисления площади поверхности s=( R+r)l+R+r

Написать программку на языке паскаль вычисления площади поверхности s=( R+r)l+R+r усеченного конуса

Задать свой вопрос
1 ответ
Const
  pi=3.14;
var
  V1,V2,R,h:real;
begin
  Write('Введите радиус и вышину: '); Read(R,h);
  V1:=pi*sqr(R)*h; V2:=V1/3;
  Writeln('Объем цилиндра ',V1:0:5,', объем конуса ',V2:0:5)
end.
Яна Матяскина
если не правильно сорян
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт