var i,a,b,a1:integer;
begin
readln(a,b);
a1:=a;
for i:=1 to a1 do begin
if (a mod i=0) and (b mod i=0) then begin
a:=a div i;
b:=b div i;
end;
end;
writeln('c=',a,' d=',b);
end.
Короче. Мне не влом было запихнуть это всё в эклипс. Результат данной работы будет, как не странно(особенно для тебя, Мышшшь) "5, 10", а не "10, 5". Чего и следовало ожидать. Т. к. Переменные a и b мы объявляли внутри метода main, а в методе swap(int a, int b); существуют собственные int a и int b. Поэтому и работает этот метод с <u>ними</u>. Так что... Учите теорию, господа.
Мой совет - запомнить как основную формулу для суммы первых n натуральных чисел
Доказывается она так: записываем те же числа в обратном порядке:
и складываем эти равенства таким образом: первое слагаемое с первым, второе со вторым и т.д. Поскольку в первой сумме каждое следующее слагаемое на 1 больше предыдущего, а во второй на 1 меньше предыдущего, мы получим сумму одинаковых чисел:
слагаемых всего n, поэтому
Теперь несложно найти сумму первых n четных чисел. Можно провести подобную выкладку, а можно свести новую задачу к предыдущей:
Ответ: