вот прям оч надо!

@canesasha · Регистрация: 13.05.2021

Author24 — интернет-сервис помощи студентам

У Пети и Васи есть неограниченный набор монеток достоинством, соответственно, a и b рублей. Нужно найти максимальную сумму, которую Петя и Вася не смогут набрать своими монетками. Если такие суммы не ограничены, следует выдать ответ -1.
Пример 1
Ввод
2 5
Вывод
3
Пример 2
Ввод
2 4
Вывод
-1
на paskal

@mr-Crocodile · 13.05.2021, 15:19

не уверен, что решил правильно, проверяйте:

Pascal

function nod(n,m:integer):integer;
begin
if n<>0 then nod:=nod(m mod n,n) else nod:=m;
end;
 
begin
  var (a,b) := ReadInteger2('Введите числа A и B');
  if (nod(a,b)<>1) or (a=1) or (b=1) then WriteLn(-1)
  else begin
    for var i:=max(a,b) downto 1 do
      if (i mod a<>0) and (i mod b<>0) then begin WriteLn(i); Break end; 
  end;
end.

Добавлено через 15 минут
нет, это не всегда даёт верный ответ... при наличии решения искать максимальное число нужно не так, как я написал!

Добавлено через 42 минуты
вот такой код сложнее (да и написан криво), но, вроде бы, работает правильно:

Pascal

function nod(n,m:integer):integer;
begin
if n<>0 then nod:=nod(m mod n,n) else nod:=m;
end;
 
function SumCheck(n,a,b:integer):boolean;
var r1, r2 : boolean;
begin
  if (n mod a=0) or (n mod b=0) then SumCheck:=true
  else begin
    r1 := false; r2 := false; 
    if (n>a) then r1 := SumCheck(n-a, a, b);
    if (n>b) then r2 := SumCheck(n-b, a, b);
    SumCheck := r1 or r2
  end;
end;
 
begin
  var (a,b) := ReadInteger2('Введите числа A и B');
  if (nod(a,b)<>1) or (a=1) or (b=1) then WriteLn(-1)
  else begin
    var sum:=1;
    for var i:=1 to max(max(a,b)*2,a+b) do 
       if Not SumCheck(i,a,b) then sum := i;
    WriteLn(sum)
  end;
end.

@canesasha 0 / 0 / 0 Регистрация: 13.05.2021 Сообщений: 7
		1
	вот прям оч надо! 13.05.2021, 13:54. Показов 1648. Ответов 1 Метки задание, задача, код, олимпиада, паскаль abc.net (Все метки) У Пети и Васи есть неограниченный набор монеток достоинством, соответственно, a и b рублей. Нужно найти максимальную сумму, которую Петя и Вася не смогут набрать своими монетками. Если такие суммы не ограничены, следует выдать ответ -1. Пример 1 Ввод 2 5 Вывод 3 Пример 2 Ввод 2 4 Вывод -1 на paskal 0

	13.05.2021, 15:19