Предмет: Информатика, автор: Enterpice

Нужна ваша помощь для создания программки в FP( free pascal) ,даю 100 балов за правильно сделанную работу

Приложения:

duracell107: Я бы с радостью, но... Можно хотя бы краткую версию задания на русском языке?
qwertyasdger: Когда джентельмен начал расставлять уточек на полки по А штук на полку, у него одна уточка оказалась лишней. После етого он начал расставлять уточек по В штук на полку, но тогда у него не хватало одной уточки. Узнайте минимальное количество уточек. Программа на входе получает числа А и В, а выводит число, обозначающее количество уточек.
duracell107: Это очень интересная задача. К сожалению, у меня нет рабочих идей на данный момент
iknowthatyoufeelbro: Перебор тут вряд ли зайдёт (уверен, что есть ограничения по времени, ведь это олимпиадная задача). Я бы составил систему уравнений: x = a*p+1, x = b*q - 1, где x - искомое число; a, b - известные; p, q - некоторые неизвестные целые параметры. Из системы бы получил диофантово уравнение b*q - a*p = 2, которое решается с помощью расширенного алгоритма Евклида.

Ответы

Автор ответа: Koljisto
1

Begin

 var A:=ReadInteger();

 var B:=ReadInteger();

 var x1,x2: integer;

 var x:integer;

 x:=2;

 while (x <= 2*10 ** 9) do

 begin

   if((x mod A=1) and (x mod B=B-1)) then

     break;

   x+=1;

 end;

 Writeln(x);

End.


Koljisto: Приму к сведению
Похожие вопросы
Предмет: Математика, автор: easygirl11
Предмет: Математика, автор: Ullyakk
Предмет: Математика, автор: ivanfomencuk3
Предмет: Математика, автор: Аноним