Напишите в паскале программу к задачам 8,9,13 пожалуйста

Напишите в паскале программку к задачкам 8,9,13 пожалуйста

Задать свой вопрос
Вадим Заярнюк
13 задачка не влезла на Ваше фото.
Валерий Пантелькин
Даны координаты трех вершин треугольника (x1,y1,)(x2,y2)(x3,y3).Отыскать его периметр и площадь
Васька Новик
Формулы ведь там тоже были.
Ветлужин Валерий
хотя я их так знаю
1 ответ
8)
Var
  V,S,R,H : Real;
Begin
  Write('Введите R и H : '); Readln(R,H);
  Writeln('V = ',Pi*sqr(R)*H);
  Writeln('S = ',2*Pi*R*H);
end.

9)
Var
  V,S,R,H,L : Real;
Begin
  Write('Введите R,H и L : '); Readln(R,H,L);
  Writeln('V = ',Pi*sqr(R)*H/3);
  Writeln('S = ',Pi*R*L);
end.

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт