Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
nikolau2011mil
19.05.2020 11:07 •
Информатика
Впаскале составить программу которая для натуральных чисел m и n находит min(2n,m)*nod(2n,3m)
Показать ответ
Ответ:
Yaneken
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 оценок)
Популярные вопросы: Информатика
natalisha96121
01.06.2021 07:45
Питон поразрядная сортировка является одним из видов сортировки, которые работают за линейное от размера сортируемого массива время. такая скорость достигается за счет того, что...
badayevadiana20
06.05.2023 12:45
1.Какие специалисты нужны, чтобы сделать из набросков сделать хит? 2.В чем заключается задача продюсера? 3.Как музыка людям, особенно сейчас, в такие не времена...
ilyhan787228
28.04.2020 12:56
Что такое тип переменной. для чего он нужен. и что он определяет. пример....
DashaKim123
28.04.2020 12:56
Реализовать bfs на питоне в файловым вводом-выводом...
xzc999
11.10.2022 12:41
Найдите значение переменной a после выполнения фрагмента программы, записанного на языке паскаль: a: =5; b: =0; c: =a+b*c; a: =3; a: =round(sqrt(1+a+c)); write(a);...
пипканегра
17.05.2021 16:27
Найти сумму чисел введенных с клавиатуры количество чисел задать через оператор read. паскаль,...
lana770
17.05.2021 16:27
Программирование паскаль. нужно создать программу в которой будет вычисляться площадь основания цилиндра...
55752188
17.05.2021 16:27
Сколько терабайт в 8995 байт заранее...
Alinakis180902
30.04.2020 00:45
ОБЖ ( ) 1. Допишіть речення: Реакція організму на несподівану ситуацію... Чинник, який спричиняє стрес, — це... Уміння оцінювати себе, свій характер – це... 2. Дайте визначення...
Alina21112001
29.11.2021 01:48
Рассмотрите изображения шести организмов. Предложите основание, согласно которому, их можно разделить на две группы...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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