[Мы решаем ваши проблемы с Си и Паскалем ]
Главная » Статьи » Задачи с acm.timus.ru » Пакет решений на 15.03.08
1139
var
  a,b: Longint;
function nod(a,b:longint):longint;
var I: longint;
begin
  for i:=a downto 1 do
   if (a mod i=0) and (b mod i=0) then break;
  nod:=i;
end;
begin
  readln(a,b);
  dec(a);
  dec(b);
  Writeln(a+b-nod(a,b));
End.
Категория: Пакет решений на 15.03.08 | Добавил: solver (15.03.2008)
Просмотров: 880