Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
mikerinavera
15.09.2020 21:34 •
Информатика
Нужно решить в паскале и написать к ней программу участок формы квадрат со стороной а=5. на участке расположен круглый бассейн радиуса 1,5м для которого не требуется удобрения. вычислить длину ограды и кол-во удобрения требуемого для участка
Ответ:
InessaKotik2005
07.10.2020 06:36
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var (a,r):=(5.0,1.5);
Writeln('Длина ограды ',4*a,' м., кол-во удобрения ',a*a-pi*r*r:0:1)
end.
Результат
Длина ограды 20 м., кол-во удобрения 17.9
0,0
(0 оценок)
Популярные вопросы: Информатика
Angelok200311
30.04.2020 08:01
Решите : 1) сообщение занимает 4 страницы и содержит 64 байта информации. на каждой странице записано 128 символов. какова мощность алфавита? 2) сообщение, записанное 32...
nadia6191
30.04.2020 08:01
Составьте блок-схему алгоритма выполнения по , состоящего из нескольких примеров. оформите блок-схему в графическом редакторе....
Юліяcoolgirl
30.04.2020 08:01
Для какого из имён ложно высказывание: не ((первая буква согласная) и (последняя буква 1) дарья 2) павел 3) абрам 4) анфиса...
Enot787
09.11.2020 17:44
Построй таблицу умеожения на 4, информатика! С цикла For (язык программирования Python)...
svetlanasalamon
24.11.2022 20:50
Какие ещё функции ты бы добавил в движение робота?...
Nastya06923
27.12.2022 20:01
решить задачи по информатике (питон...
katikatikatiilozre2d
13.10.2020 23:49
Скласти програму Python, ввійвши змінні a та b. З міста в село Простоквашино виїхав разом з батьками на автомобілі дядя Федір. Коли вони із середньою швидкістю 80 км/год...
onetz
01.06.2023 07:55
4. Задано фрагмент програми. Вказати результат після його виконання Const R= сертифікат ;Var M:string[20];Begin M: copy(R,4,3);Writeln(M);End....
sapunovegor22
30.04.2022 21:14
Сочинение рассуждение на тему чтобы ты сделал чтобы сделать интернет безопаснее...
Kot7476
30.04.2022 21:14
Напишите рекурсивную функцию, возводящую число a в степень n. гарантируется, что все числа помещаются в стандартные вещественные (a и ответ) и целые (n) типы. входные данные...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var (a,r):=(5.0,1.5);
Writeln('Длина ограды ',4*a,' м., кол-во удобрения ',a*a-pi*r*r:0:1)
end.
Результат
Длина ограды 20 м., кол-во удобрения 17.9