Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
leradolgolenko
17.06.2021 00:13 •
Информатика
Впаскале составить программу которая для натуральных чисел m и n находит min(2n,m)*nod(2n,3m)
Показать ответ
Ответ:
leraolegovna1
05.10.2020 18:44
PascalABC.NET 3.x
function Gcd(a,b:integer):integer; // НОД
begin
while b<>0 do begin a:=a mod b; Swap(a,b) end;
Result:=a
end;
begin
var m,n:integer;
Read(n,m);
Writeln(Min(2*n,m)*Gcd(2*n,3*m))
end.
Пример
12 43
72
0,0
(0 оценок)
Популярные вопросы: Информатика
leda2003
06.01.2023 08:49
Вывести на экран каждый 4-ый член последовательности a(k)=(sqrt(sqr(k)+ ответ нужен на языке pascal....
ISMAL2009
17.07.2020 16:29
1. Авторлык кукык кимнин муддесин коргайды? 2. Интернеттеги авторлык кукыгы бар туындыларды дурыс пайдалану каншалыкты манызды?3. Бугинги танда интернетте авторлык...
adilyaarslanov
13.02.2021 08:12
Число страниц словаря- 416, число строк на странице-42, число символов в строке-38 1 посчитайте информационный объем одной страницы в байтах 2 посчитайте информационный...
krasnikovanastoyhpaj
11.07.2020 23:33
Очем сказка аленький цветочек и главные герои...
nikitinaalens78
03.12.2021 09:52
1. прочитайте текст. мальчик киря печатал на пишущей машинке письмо своей бабушке. у бабушки было плохое зрение, и печатные буквы она разбирала легче, чем рукописные....
1406052005
03.12.2021 09:52
Газ в наибольшем количестве входящий в состав воздуха...
tata535268
03.12.2021 09:52
Краткое содержание г х андерсен дикие лебеди...
пума060
03.12.2021 09:52
Цена груш — m р. за 1 кг, а цена яблок — n р. за 1 кг. запиши в виде выражения: на сколько 3 кг груш дороже 6 кг яблок (без пропусков между буквами, числами и знаками...
Narmahanova
03.12.2021 09:52
Один рабочий выполняет порученную работу за 12 часов. а другой эту же работу - за 15 часов. кто из них сделает больше : первый за 5 часов или второй за 7 часв?...
MatveyGTR
03.12.2021 09:52
Вася нарисовал на доске семь кругов.потом в аудиторию вошли 33 его однокласника. каждый из них стёр один круг ,или дорисовал новый .могло ли в конце на доске остаться...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
function Gcd(a,b:integer):integer; // НОД
begin
while b<>0 do begin a:=a mod b; Swap(a,b) end;
Result:=a
end;
begin
var m,n:integer;
Read(n,m);
Writeln(Min(2*n,m)*Gcd(2*n,3*m))
end.
Пример
12 43
72