Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
hadisvv
07.11.2020 14:54 •
Информатика
Подскажите, как решить на паскале? участок сада треугольной формы с длинами границ a=3, b=4, c=5. найдите длину ограды и количество удобрений нужных для участка.
Показать ответ
Ответ:
alexeikomarow
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 оценок)
Популярные вопросы: Информатика
КатюшаМелихова
12.12.2022 20:30
На обработку поступает последовательность из четырёх целых чисел. нужно написать программу, которая выводит на экран количество неотрицательных чисел последовательности...
05Adam05
07.03.2022 12:32
1.Составить алгоритм в виде словесного описания Y =5(x +2z) 2.Составить алгоритм в виде таблицы Y = x2 + z + (34+ z)^2 3.Составить алгоритм в виде блок-схемы Y =...
adrian55RUS
07.03.2023 14:09
Вы угадываете знак зодиака вашего друга.сколько вопросов вам нужно задать при этом ,какое количество информации вы получите...
lezifequliyeva
11.10.2020 13:29
Расскажите о следующих дополнительных устройств (компьютера) : факс, видеопроектор, веб-камера, электронная доска...
NetronPozitiv
02.01.2021 12:49
Есептеу техникасының дамуы адамның тұрмысын қалай жақсартады? Компютер техникасының сексен жылға жуық уақыт аралығында қарқынды дамуының қандай себептері бар?...
sverhrazum123
16.10.2022 21:00
По восприятия информация не может быть: 1) графической2) аудиальной3) символьной4) текстовой...
влад2262
15.11.2021 18:18
Какой датчик предназначен для определения цвета и яркости отраженного света или внешнего освещения? * датчик звука датчик расстояния датчик касания датчик цвета гироскопический...
нура49
01.04.2020 14:59
На сколько удлинится рыболовная леска с коэффициентом 0.5кн\м при поднятии вертикально вверх рыбы массой 250г?...
стулка
01.04.2020 14:59
Идеальный тепловой двигатель получает от нагревателя в каждую секунду 6800 кдж количества теплоты и отдаёт в холодильник 5600кдж. какова кпд двигателя?...
kosmos132
01.04.2020 14:59
Вкаком слчае равнодействующяя трёх сил 12, 8 и 4 н будет равна 0? будит ровна 16н?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.