Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
MilenaNasifullina
28.03.2020 21:48 •
Информатика
Написать программу вычисления площади зеркала телескопа
Показать ответ
Ответ:
user666triplesix
05.10.2020 08:22
Program Ls112kfdkfjfj;
const pi=3.14;
var n,m: real;
function S(r: real): real;
begin
S:=pi*r*r;
end;
begin
write('R1=');
readln(n);
n:=S(n);
write('R2=');
readln(m);
m:=S(m);
writeln('S=',abs(n-m));
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Jdjsjsbbsbsbдевочка
31.03.2022 12:25
Pascal (задан вектор. если первый елемент вектора положительный, заменить max елемент вектора на первый елемент, если отрицательный заменить min на последний елемент)...
Melissa607
11.02.2021 11:53
Заполните таблицу, если величина y прямо пропорциональна величине x. x 0,2 0,6 y 1,8 3,6...
sofira3
11.02.2021 11:53
Составить программу которая вычисляет сумму первых 161 натуральных чисел (параметром цикла является переменная j,а сумма хранится в переменной m)...
Dragolord
16.09.2022 10:39
Составить блок схемы, написать программу для вычисления: 1) площади и периметра треугольника. 2) дан радиус окружности. найти длину и площадь окружности. огромное!...
Demians
06.09.2020 08:32
Вычислите сколько байтов занимает на cd одна минута звукозаписи ( частота жискретизации - 44000, рязрядность - 16 битов ) . какова максимальная продолжительность звукозаписи...
teymurnadjafov
06.01.2022 07:00
нужно до сегодняшнего дня сделать Выбери допустимые имена файлов.rodina.xlxs|rodina|**..xlsrodina?.xlxs*rodina\.xlscomputer:??..xlscomputer.xls...
alinasastun0
28.01.2021 12:20
. Вычисли количество адресуемых ячеек памяти, если разрядность шины адреса равна 24: N= С пояснением...
MastaM
13.08.2021 20:02
Очень очень очень надо. желательно с решением, заранее...
dimkach2014
06.07.2021 14:32
Почему ярослава мудрого стали называть мудрым....
Eva06An
06.07.2021 14:32
Не могли бы ,ну если вас это не затруднит.никак не могу решить .я знаю,что она простая,но с нашим мы ничего не понимаем,да и все не понимают. рассчитайте массовую долю углерода...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
const pi=3.14;
var n,m: real;
function S(r: real): real;
begin
S:=pi*r*r;
end;
begin
write('R1=');
readln(n);
n:=S(n);
write('R2=');
readln(m);
m:=S(m);
writeln('S=',abs(n-m));
end.