Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
sabinabaigali
11.03.2023 13:13 •
Информатика
Надо создать в пайтоне/питоне, в ответ мне нужен код, ;) обязательно использая цикл
👇
Увидеть ответ
Ответ:
Алиса2016
11.03.2023
8765683837373276392929
4,6
(50 оценок)
Открыть все ответы
Ответ:
lilyamkrtchyan1
11.03.2023
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!
unit ASM;
interface
type SF=(integer,integer);
function AddSF(a,b:SF):SF;
function SubSF(a,b:SF):SF;
function MultSF(a,b:SF):SF;
function DivSF(a,b:SF):SF;
implementation
function Gcd(p:SF):integer;
begin
(var a,var b):=p;
a:=abs(a); b:=abs(b);
while b>0 do (a,b):=(b,a mod b);
Result:=a
end;
function ReductSF(p:SF):SF;
begin
var t:=Gcd(p);
if t>1 then Result:=(p[0] div t,p[1] div t)
else Result:=p
end;
function AddSF(a,b:SF):=ReductSF((a[0]*b[1]+a[1]*b[0],a[1]*b[1]));
function SubSF(a,b:SF):=ReductSF((a[0]*b[1]-a[1]*b[0],a[1]*b[1]));
function MultSF(a,b:SF):=ReductSF((a[0]*b[0],a[1]*b[1]));
function DivSF(a,b:SF):=ReductSF((a[0]*b[1],a[1]*b[0]));
end.
Пример работы с модулем
uses ASM;
begin
var a:=(5,24);
var b:=(7,8);
var c:=AddSF(a,b);
Writeln(a[0],'/',a[1],'+',b[0],'/',b[1],'=',c[0],'/',c[1])
end.
Результат
5/24+7/8=13/12
4,8
(11 оценок)
Ответ:
mmmmmvbbbbb
11.03.2023
1) program p1;
var a,b:integer;
begin
writeln('Введите 1-е число: ');read(a);
writeln('Введите 2-е число: ');read(b);
if(a>=b) then writeln('максимальное число: ', a) else writeln('максимальное число: ', b);
end.
2)
program p1;
procedure MaxNumber(a,b: integer; var max: integer);
begin
if a>=b then max:=a else max:=b;
end;
var a,b,c,d,m:integer;
begin
writeln('Введите 1-е число: ');read(a);
writeln('Введите 2-е число: ');read(b);
writeln('Введите 3-е число: ');read(c);
writeln('Введите 4-е число: ');read(d);
MaxNumber(a,b,m);
MaxNumber(m,c,m);
MaxNumber(m,d,m);
writeln('максимальное число: ',m);
end.
4,6
(11 оценок)
Это интересно:
З
Здоровье
27.06.2020
Как понизить артериальное давление быстро и эффективно?...
К
Компьютеры-и-электроника
21.05.2022
Как восстановить игру League Of Legends: шаг за шагом...
Х
Хобби-и-рукоделие
23.06.2021
Как стать профессиональным игроком?...
К
Компьютеры-и-электроника
16.10.2021
Как использовать RealVNC: простой и эффективный способ удаленного управления компьютером...
Ф
Финансы-и-бизнес
01.03.2023
10 советов как сэкономить деньги, делая покупки раз в месяц...
К
Кулинария-и-гостеприимство
28.11.2021
Глазурь без сахарной пудры: простой рецепт и секреты идеальной текстуры...
О
Образование-и-коммуникации
08.01.2022
Как выглядеть круто в школьной форме...
Д
Дом-и-сад
20.12.2022
Как заменить прокладку на двери холодильника...
Ф
Финансы-и-бизнес
23.11.2020
Как купить себе частный остров: преимущества и нюансы покупки...
К
Компьютеры-и-электроника
19.03.2023
Как бесплатно создать сайт: подробный обзор лучших сервисов для начинающих...
Новые ответы от MOGZ: Информатика
380931817787
25.03.2020
Расскажите о проводимых в Узбекистане турнирах по компьютерным играм...
marysyakgl
25.03.2020
В файле 2.txt в столбик записаны числа, количество чисел неизвестно. написать программу, которая находит среднее арифметическое D четных элементов файла....
ilyagnomm
07.08.2020
Завдання. В зошиті написати програмний код на мові програмування Python для розв’язування задач: Задача 1. Білочки Є n білочок та m горішків, які потрібно розділити...
EgorJORDAN
23.03.2022
Визначні постаті сфери інформаційних технологій...
sddssddd
04.01.2020
Составить блок-схему алгоритма вывода на экран квадратов чисел от 1 до 10...
yakuninvitalii
02.09.2021
Расскажите о понелях обработки текста в интерфейс программы Paint.Net...
Rorschach001
04.09.2022
Работа: « чисел и систем счисления». 1. решите следующие примеры: а) vii – v = б) ix – vi = в) v + viii = г) ii + iv = 2. какие числа записаны римскими цифрами: а)...
Evaliberman
16.03.2022
Төмендегі сөлемдерді толықтырып, көшіріп жазыңыз. Керекті сөздер соңында берілген. 1. Тістің ... тазартып, пломба салу керек. 2. Тәтті... жегенде тіс ауырады. 3....
ангел150705
28.07.2020
Проаналізуйте стосунки Яви та Яришки підтверджуючи свої думки уривками з тексту...
ajshshdj
11.07.2021
Терміново ❗ до іть ❤️1 варіант...
MOGZ ответил
Подберите слова-синонимы к устойчивым сочетаниям. Проявили заботу,...
В тексте упр. 85 определите грамматические значения сказуемых....
Какие типы речи сочетаются в данном тексте? Какова его стилистическая...
Установите, какими членами предложения могут быть зависимые слова...
Пользуясь толковым словарём, дайте письменное определение значения...
Используя данные предложения, докажите, что второстепенные члены...
Используя опорный материал, вспомните, какие действия и в какой...
Определите границы предложений; запишите, решая орфографические...
Подберите или составьте предложения на разные случаи применения...
Запишите текст, расставляя недостающие знаки препинания. 2. Почему...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
8765683837373276392929