Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
Anasteyzhaaaaaa
27.03.2021 00:48 •
Информатика
Скорость передачи данных через АDSL-соединение равна 2000000 бит/с. Передача
файла через данное соединение заняла 10 секунд. Определите размер файла в килобайтах.
👇
Увидеть ответ
Открыть все ответы
Ответ:
11Аслан11
27.03.2021
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.
4,5
(55 оценок)
Ответ:
taniataolia
27.03.2021
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.
4,6
(71 оценок)
Это интересно:
О
Образование-и-коммуникации
19.07.2021
Как преобразовать время из 12-часового в 24-часовой формат...
С
Стиль-и-уход-за-собой
03.10.2020
10 простых правил ухода за кожей лица в домашних условиях...
К
Компьютеры-и-электроника
07.04.2020
Установка HD игр с кэшем на Android: подробная инструкция...
С
Стиль-и-уход-за-собой
13.10.2020
Как избавиться от ушных пробок: причины, симптомы и лечение...
В
Взаимоотношения
16.10.2021
Как признаться в любви в записке: искусство выражения чувств...
С
Стиль-и-уход-за-собой
17.12.2021
Горячее масло: идеальный способ привести ваши волосы в порядок?...
К
Компьютеры-и-электроника
10.11.2021
Как изменить список программ для автозапуска...
К
Кулинария-и-гостеприимство
31.12.2020
Как приготовить пасту Чикен Альфредо, чтобы она получилась вкусной?...
Д
Дом-и-сад
19.11.2020
Как вырастить куст розы из черенка: шаг за шагом...
С
Стиль-и-уход-за-собой
25.11.2020
Как поддерживать здоровье волос: советы и рекомендации от экспертов...
Новые ответы от MOGZ: Информатика
inybax
31.12.2022
Скажите название устройств на букву а) - д) ...
kitmyfaded
20.06.2022
Упростите логическое выражение (B- A)& НЕ(AvB)&(A- C)...
НяшаАнька
14.12.2021
Расставьте по порядку действия, выполняемые процессором при работе с программой: выполнение команды формирование адреса очередной команды чтение команды из памяти и её расшифровка...
ooo29
21.06.2021
Можете объяснить как это делать Программа MS Excel...
Мышка007
26.02.2021
5.Екі өлшемді графика мен үш өлшемді графиканың айырмашылығын қандай? надо о...
Koshmmarik
12.01.2021
Определить, кто из учащихся сдал экзамен по математике, если известно следующее: Если Виктор не сдал экзамен, то и Сергей не сдал. Если Алексей не сдал экзамен или Виктор не...
sabinab13
03.06.2023
Упращение формулы только второе...
ArtemFediroolosb
15.10.2020
инфарматикаа бжб электронды кестеде қандай деректер типі бар?анықтама бер....
Айкотик2017
13.10.2020
Ребята Тут уже всё готово просто надо заполнить таблицу на первом слайде....
qqruzko
28.10.2020
1. Компьютерлік графика нешеге бөлінеді? A. 5 B. 2 C. 3 2. графикалық редакторы суреттер салуға, өңдеуге, сақтауға, қағаз басып шығаруға, растрлық бейнелермен жұмыс істеуге арналган...
MOGZ ответил
Надо составить диктант, чтобы в нём было минимум 6 фразеологизмоф...
Write a description of a person who has had a big influence on you....
Периметр четырехуглльника равен 38 см, одна из его сторон равна 11 см, вторая...
Перечислите важнейшие архитектурные сооружения древней руси...
Написати 3 складносурядних речення на медичну тематику....
Найдите нод и нок чисел а)28и35 б)24и18...
Как проверить и в слове вычитаемое?...
1и2 сторона треугольника равна 37см.вторая и третья сторона равна см. первая...
Сочинение дефорж и дубровский план: 1.вступление - роман а.с.пушкин назван в...
Мне нужно выписать из художественного произведения 5 предложений и обозначить...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
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.