1. Информатика
  2. Составить программу нахождения

Составить программу нахождения площади и периметра равнобедр. треугольника,если известны все его стороны. s=1/2 a*h p=a2+b

nlogvinova14 nlogvinova14    1   22.05.2019 06:10    0

Ответы
BOGDANGER BOGDANGER  17.06.2020 08:39

var s, h:real;

a, b, p:integer;

begin

readln(a, b);

writeln('Периметр ровняется = ', 2*a+b);

h:=sqrt(sqr(a)-sqr(0.5*b));

writeln('S = ', 0.5*a*h:2:2);

readln

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Sasha030506 Sasha030506  13.05.2020 15:59
Ұғымдарды қолдану жағдайына мысал келтіріңіз.Авторлық құқық/ плагиат​...
lizavolod17 lizavolod17  13.05.2020 15:59
Тест «создание web – сайта» 9 класс. 1) бесплатный хостинг подходит для … 1. огромных общественных веб-сайтов. 2. больших интернет-магазинов. 3. небольших общественных веб-сайтов....
Лиза109876543 Лиза109876543  13.05.2020 15:59
Информатика 7 класс ,ответить на во...
sergeyblack11 sergeyblack11  22.05.2019 02:20
На световой панели в ряд расположены 7 лампочек. каждая из первых двух лампочек может гореть красным, жёлтым или зелёным цветом. каждая из остальных пяти лампочек может гореть одним...
dinaumralieva dinaumralieva  22.05.2019 02:20
Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, кратное 5. программа получает на вход количество чисел в последовательности, а затем...
KOBPAHET KOBPAHET  22.05.2019 02:20
Файл размером 60 кбайт передаётся через некоторое соединение со скоростью 3072 бит в секунду. определите размер файла (в кбайт), который можно передать за то же время через другое...
Зефирка170504 Зефирка170504  22.05.2019 02:20
Составить блок-схему. program h7; const n=15; p=3.14; var x: array [0..n] of integer; y: array [0..n] of real; i,h,k: integer; a,s,max,min,t: real; f: text; begin randomize; k: =0;...
кицуня1 кицуня1  22.05.2019 02:30
Файл размером 64 кбайт передается через некоторое соединение со скоростью 1024 бит в секунду.определите размер файла (в кбайт), который можно передать за то же время через другое...
katetolstoshev2 katetolstoshev2  22.05.2019 02:30
Дан двумерный массив,найти максимальное и минимальное значение .я новенький в этом деле,вот попытался сам,посмотрите и обьясните что не правильно , . program zaza; var i,j,n,m,max,min:...
kckekdkalexter kckekdkalexter  22.05.2019 02:30
Решить информационный объём дискеты 1,44 мбайта. достаточно ли одной дискеты,чтобы записать на неё 5 файлов,информационный объём каждого из которых примерно равен 300 кбайт. почему?...

Популярные вопросы