Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ого23
29.11.2021 16:02 •
Информатика
Подскажите, как решить на паскале? участок сада треугольной формы с длинами границ a=3, b=4, c=5. найдите длину ограды и количество удобрений нужных для участка.
Показать ответ
Ответ:
LVacelikova
12.07.2020 13:25
Program zadacha;
uses crt;
var a, b, c: integer;
u, p, s: real;
begin
clrscr;
write ('vvedite kolichestvo udobrenii, nuzhnyh dlya 1 m^2: ');
readln (u);
write ('vvedite storony uchastka: '); // таким образом можно ввести любые
// стороны, не только 3, 4 и 5
readln (a, b, c);
// можно сразу написать a:=4; b:=3; c:=5;
p:=a+b+c;
writeln (' dlina ogrady - ', p:0:2);
p:=p/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c)); // вычисление площади по формуле Герона
u:=u*s;
writeln ('kolichestvo trebuemyh udobrenii - ', u:0:2);
readkey;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
sun54
14.11.2021 17:46
В общеобразовательной школе города N решили всем ученикам централизовано выдать логины для доступа к всероссийскому порталу молодёжи. Т.к. большинство школьников...
290720031
24.05.2021 02:50
Что такое дисплейный процессор и какую работу он выполняет...
az0967848
07.08.2022 01:53
Составить алгоритм вычисления среднего арифметического трех чисел ( на алгоритмическом языке и блок - схему). произвести расчет алгоритма для значений 3,4, 5 и...
crasnowdim2018
23.11.2020 23:17
Встудии при двухканальной (стерео) звукозаписи с 32-битнымразрешением за 150 секунд был записан звуковой файл. сжатие данных непроизводилось. известно, что размер...
DanilVenstor
29.08.2021 14:01
Запишите команду присваивания, в запишите команду присваивания, в результате выполнения которой логическая переменная t получает значение true, если выполняется...
Дашакот2345681
31.07.2021 21:12
Вычислите сумму 4 целых чисел введенных с клавиатуры(нужно сделать с циклом предусловием постусловием и с параметром for ) нужно...
nagornaykisa
30.01.2021 17:15
Много только сочините сиквейн про лошадь...
Dogi2019
12.10.2021 16:30
3. Дан фрагмент электронной таблицы. В ячейку А1 введена формула =В1*$С$1 а) Запишите элемент формулы, который содержит относительную ссылкуб) Запишите элемент...
silverg2005p00xxj
06.12.2020 01:40
Составить программу для вычисления x и y по формулам...
зика356
13.03.2021 02:35
можно ли считать выражение лица кодировкой мыслей (А.Алешин) ответить на этот вопрос с точки зрения кодирования информации...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses crt;
var a, b, c: integer;
u, p, s: real;
begin
clrscr;
write ('vvedite kolichestvo udobrenii, nuzhnyh dlya 1 m^2: ');
readln (u);
write ('vvedite storony uchastka: '); // таким образом можно ввести любые
// стороны, не только 3, 4 и 5
readln (a, b, c);
// можно сразу написать a:=4; b:=3; c:=5;
p:=a+b+c;
writeln (' dlina ogrady - ', p:0:2);
p:=p/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c)); // вычисление площади по формуле Герона
u:=u*s;
writeln ('kolichestvo trebuemyh udobrenii - ', u:0:2);
readkey;
end.