Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
guluamovalera
26.04.2021 16:09 •
Информатика
Программа на паскаль. условие : вычислить площадь окружности. радиус вводится с клавиатуры
Показать ответ
Ответ:
yuliandra
08.07.2020 00:04
Var
r,pi:real;
begin
writeln('Введите радиус окружности');
readln(r);
pi:=4*ArcTan(1);
writeln('Площадь окружности равна ', pi*sqr(r))
end.
Тестовые решения:
Введите радиус окружности
1
Площадь окружности равна 3.14159265358979
Введите радиус окружности
3.54
Площадь окружности равна 39.3691824977259
0,0
(0 оценок)
Популярные вопросы: Информатика
8603184005291
22.03.2022 23:32
Можете проверить,а если не правильно,то исправить ? var a: array [1..10] of integer; i: integer; begin for i: = 1 to 10 do readln (a[i]); 239 if a[i] 17 then; writeln (a[i]);...
Texero
22.03.2022 23:32
Запишите число 4435 в десятичной системе счисления...
Pelyovin1980
22.03.2022 23:32
211 160 237 224 241 160 231 224 226 229 235 232 241 252 160 239 240 229 228 224 242 229 235 232 160 240 238 228 232 237 251. 160 194 160 241 226 255 231 232 160 241 160 253...
олька9992
10.04.2021 02:49
Составить программу подсчета силы тяжести если m меняется от a до b с шагом h паскаль...
strongdodu
20.12.2021 09:12
Что такое портал,сервис( информатика)...
Johngear
29.03.2022 08:10
До іть! 1.Напишіть всі цілі числа А до В що закінчується цифрою 5 або цифрою 0.2.Напишіть всі щасливі чотирьохзначні числа. Щасливим називають число у якого сума перших двох...
Zangerange
31.01.2022 08:49
Для розв язування яких задач використовують оператор вибору?...
Вероника1306
21.01.2020 13:36
Нужно ! ! с решением ! перевести нужно : 8 кб ? в байт 248 бит ? байт 9216 мб ? кб 8 гб ? байт 32768 бит ? мб !...
Нннннннн11
25.02.2021 17:40
Пример комплектации компьютерного обеспечения внешними устройствами и специальным программным обеспечением рабочего места в спорте...
АнастасияКот26
24.08.2021 04:33
Сколько целых чисел удовлетворяет следующему неравенству. eea (16) x 7640 (8)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
r,pi:real;
begin
writeln('Введите радиус окружности');
readln(r);
pi:=4*ArcTan(1);
writeln('Площадь окружности равна ', pi*sqr(r))
end.
Тестовые решения:
Введите радиус окружности
1
Площадь окружности равна 3.14159265358979
Введите радиус окружности
3.54
Площадь окружности равна 39.3691824977259