Предмет: Информатика,
автор: Enterpice
Нужна ваша помощь для создания программки в FP( free pascal) ,даю 100 балов за правильно сделанную работу
Приложения:
duracell107:
Я бы с радостью, но... Можно хотя бы краткую версию задания на русском языке?
Когда джентельмен начал расставлять уточек на полки по А штук на полку, у него одна уточка оказалась лишней. После етого он начал расставлять уточек по В штук на полку, но тогда у него не хватало одной уточки. Узнайте минимальное количество уточек. Программа на входе получает числа А и В, а выводит число, обозначающее количество уточек.
Это очень интересная задача. К сожалению, у меня нет рабочих идей на данный момент
Перебор тут вряд ли зайдёт (уверен, что есть ограничения по времени, ведь это олимпиадная задача). Я бы составил систему уравнений: x = a*p+1, x = b*q - 1, где x - искомое число; a, b - известные; p, q - некоторые неизвестные целые параметры. Из системы бы получил диофантово уравнение b*q - a*p = 2, которое решается с помощью расширенного алгоритма Евклида.
Ответы
Автор ответа:
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.
Приму к сведению
Похожие вопросы
Предмет: Математика,
автор: easygirl11
Предмет: Математика,
автор: Ullyakk
Предмет: Математика,
автор: ivanfomencuk3
Предмет: Математика,
автор: Аноним
Предмет: Физика,
автор: помогите764