Войти
Регистрация
Спроси ai-bota
ilonadedyuhinaox7c9l
28.12.2022 20:11
PYTHON С пояснением Написать программу: С ПОЯСНЕНИЕМ КАЖДОГО ДЕЙСТВИЯ. Чтобы не было что какоето ч">
Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
serega5152
16.10.2022 04:11
. за неправильный ответ по жопе дам...
Шуранька
05.07.2020 06:47
Мальчики Андрей и Илья придумали игру с камешками. Суть игры заключается в том, чтобы набрать кучку с определенным количеством камешков в ней, добавляя камешки только...
robot1212
05.07.2020 06:23
Выберите формулу , которая введена в ячейке Д7. !...
talyaarpaci
14.07.2020 04:04
Канат учится в 8 классе. В его школе 8 параллельных в которых по результатам і четверти получены результатыкачества знаний. Канат, изучив полученные данные, решил...
Malika89551
17.02.2021 21:29
осталось 15 минут и сдать надо...
Мурик123
06.03.2023 19:54
Скопировать документ в ворде по образцу и скинуть файл...
Соня11647
18.04.2020 16:53
Среди предложенных множеств укажите бесконечные множества •Множество букв английского алфавита •Множество целых трёхзначных чисел •Множество деревьев в загородном...
Ilona9595
26.04.2020 10:25
решить задачу на пайтоне Найти сумму чисел от 100 до 200, кратных 17....
venya09890
24.01.2023 06:57
легковой автомобиль проехал 68,125 10 а грузовой 111000,1 2 какой проехал больше ответ в восьмеричной системе...
liza1449
05.09.2022 05:35
Сколько вершин и рёбер у графа, представленного на рисунке?...
Ответ:
3866
01.01.2022 01:22
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 оценок)
Ответ:
dnsadlerqwer
01.01.2022 01:22
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
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота