Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
t9003451896Temach
25.11.2022 14:28 •
Информатика
Люди . Задали домашнее задание по информатике. Написать программу на языке Python для ввода одного целого числа и одного дробного, вывести на экран их сумму, разность, произведение и целочисленное деление.
Как это делать .
👇
Увидеть ответ
Открыть все ответы
Ответ:
11Аслан11
25.11.2022
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
25.11.2022
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 оценок)
Это интересно:
С
Семейная-жизнь
11.01.2022
Как рассказать парню о беременности после случайного секса?...
З
Здоровье
28.05.2020
Как быстро набрать вес (для женщины): советы и рекомендации...
Д
Дом-и-сад
10.01.2021
Как избавиться от беспорядка на кухонной полке: Правильный способ сделать подкладку...
З
Здоровье
02.11.2021
Как распознать разрушение зубной эмали...
З
Здоровье
11.08.2021
Как преодолеть весовое плато при похудении...
К
Компьютеры-и-электроника
07.05.2022
Как запустить веб-сервер на компьютере: подробная инструкция для начинающих...
Х
Хобби-и-рукоделие
29.03.2020
Mountain Dew: Как сделать свечение...
К
Компьютеры-и-электроника
25.12.2021
Как правильно отправлять SQL запросы в Mysql из командной строки...
К
Компьютеры-и-электроника
08.07.2020
Как скачать фильм с YouTube через YouTube Downloader...
12.09.2022
Искусство покорения сердец: как влюбить в себя парня...
Новые ответы от MOGZ: Информатика
Тёна333
09.11.2020
Задание ниже, таблица в прикреплённом файле В таблице змейкой размещены три слова, которые связаны с темой урока (их можно читать по горизонтали и по вертикали, но не по диагонали)....
алинаарсенова
03.06.2020
Какую выбрать тему по информатики для проекта, где много информации и которую легче сделать...
vlad199411003
23.01.2021
Как добавить ярлык приложения на главный экран ПК плз...
tatksyushap06w3y
09.02.2021
Можете дать идею для призетации по информатике класс...
Werty0183
16.03.2020
Скласти програму знаходження добутку елементів одновимірного масиву...
GoldHorse
03.02.2020
1. Кортеж дегеніміз не? 2. Сөздіктер деген не? 3. Кандай қарапайым логикалык операторларды білесін дер? 4. and, or, not қандай операторларға жатады...
Lanalavina
24.03.2023
Спросить сколько чисел вывести. Задать случайными числами от 0 до 60 включительно. Посчитать сколько чисел, не делящихся на 3 и оканчивающихся на 3, если таковые были. Найти их...
aslanəz
09.01.2020
Для чего служит панель свойств? От чего зависит ее внешний вид? ...
Дмитрий308228
27.10.2022
К преимуществу векторной графики относится А)возможность создания любого изображения. В)быстрая обработка сложных изображений. С)масштабирование не влияет на качество изображения....
vehea78347
23.05.2023
На питоне последнее задание осталось....
MOGZ ответил
Против каждого утверждения отметь его истинность или ложность (в соответствующей...
4. Знайдіть площу паралелограма, сторони якого дорівнюють 4см і 6см, а кут...
Как создовалась Ассирийская империя?...
Мальпигиены сосуды есть у: а) креветки; б) саранчи; в) таежного клеща; г) пиявки....
Найдите значения выражения b-c при а=0,8;b= -0,9;с=0,7 a...
ОЧЕНЬ у меня ограниченное время, нужно быстро, надеюсь на ваше понимание...
Н. Гоголь Ночь перед Рождеством Влияние пейзажа на атмосферу развивающихся...
Sunday night. Вставь предлоги времени in, on, at...
МУЗИКА 7 КЛАС КР ДАЮ 30 Б...
Сторони трикутника дорівнює 4 см,10см и 6см.знайдіть середні лінії цього трикутника...
Полный доступ к 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.