logo
Войти Регистрация Спроси ai-bota


karyakinayulya
25.07.2021 07:27

Упростите выражения.
С решением.


Упростите выражения. С решением.

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
Locko3
Locko3
19.09.2022 04:42
Положение участников Задачи Посылки Участники E. Толстой, Гоголь, Чехов - В языке запросов поискового сервера для обозначения логической операции «ИЛИ» Используется символ |, а для...
111ВсЕзНаЙкА111
111ВсЕзНаЙкА111
23.01.2023 17:51
3. В чем достижение структурного программирования?...
Приветипока
Приветипока
08.12.2022 08:56
подготовить ответ к зачету на вопрос Хранение информации и ее носители по предмету Информационные технологии...
howl111
howl111
22.02.2023 01:44
Файл размером 16 Кбайт передаётся через некоторые соединение со скоростью 2048 бит в секунду. Определите размер файла (в байтах) которые можно передать за тоже время через другие...
Женя02458
Женя02458
27.05.2023 15:00
решите итоговую по информатике сегодня надо...
guskovzahar2011
guskovzahar2011
20.11.2022 11:59
Задача 6: Прожектора На дискотеке в ряд стоят три прожектора, которые поочерёдно светят в следующем порядке: левый, средний, правый, средний, левый, средний, правый, средний и т.д....
явлущуьеиетье8
явлущуьеиетье8
09.01.2022 05:32
Быстреее !!даны кружка и бидон,найти сколько понадобится кружек,чтобы полностью заполнить бидон(программа с циклом,без операторов div и mod)...
129697113
129697113
24.07.2020 21:06
На Python 15.2. Напишите программу, которая в последовательности натураль- ных чисел определяет разность между наибольшим и наименьшим из чисел, которые кратны 9 и оканчиваются на...
Бізнесмен22
Бізнесмен22
04.03.2021 13:57
18. в Единой коллекции цифровых образовательных ресурсов найдите интерактивную презентацию «Сложение и вычита ние многоразрядных двоичных чисел» (128624), с ее щью самостоятельно...
доминион11
доминион11
23.01.2020 09:21
, построить это в Паскаль авс по координатам...
Ответ:
Program TaskA;
Var r1, r2: Integer;
Procedure S(r1, r2: Integer);
Var s: Real;
Begin
If r1 > r2 Then
s := Pi * (r1 * r1 - r2 * r2)
Else
s := Pi * (r2 * r2 - r1 * r1);
WriteLn('Площадь кольца: ', s:5:2);
End;
Begin
Write('r1 = ');
ReadLn(r1);
Write('r2 = ');
ReadLn(r2);
S(r1, r2);
ReadLn;
End.

Program TaskA;
Var r1, r2: Integer;
Function S(r1, r2: Integer): Real;
Begin
If r1 > r2 Then
result := Pi * (r1 * r1 - r2 * r2)
Else
result := Pi * (r2 * r2 - r1 * r1);
End;
Begin
Write('r1 = ');
ReadLn(r1);
Write('r2 = ');
ReadLn(r2);
WriteLn('Площадь кольца: ', S(r1, r2):5:2);
end.
0,0(0 оценок)
Ответ:
anonim198
26.10.2022 10:15
Program TaskA;
Var r1, r2: Integer;
Procedure S(r1, r2: Integer);
Var s: Real;
Begin
If r1 > r2 Then
s := Pi * (r1 * r1 - r2 * r2)
Else
s := Pi * (r2 * r2 - r1 * r1);
WriteLn('Площадь кольца: ', s:5:2);
End;
Begin
Write('r1 = ');
ReadLn(r1);
Write('r2 = ');
ReadLn(r2);
S(r1, r2);
ReadLn;
End.

Program TaskA;
Var r1, r2: Integer;
Function S(r1, r2: Integer): Real;
Begin
If r1 > r2 Then
result := Pi * (r1 * r1 - r2 * r2)
Else
result := Pi * (r2 * r2 - r1 * r1);
End;
Begin
Write('r1 = ');
ReadLn(r1);
Write('r2 = ');
ReadLn(r2);
WriteLn('Площадь кольца: ', S(r1, r2):5:2);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота