Решить в pascal s=1/2-2/3+3/4-5/6+ цикл

Question

Информатика: Решить в pascal s=1/2-2/3+3/4-5/6+ цикл

Zggzsbsnnzh · Accepted Answer

Function gcd(a: integer; b: integer): integer;
// Нахождение НОД
var
i, a1, b1: integer;
begin
a1 := a; b1 := b;
while b1 <> 0 do
begin
a1 := a1 mod b1;
i := b1; b1 := a1; a1 := i
end;
result := a1
end;

var
m, n, k: integer;

begin
writeln('Введите пару целых чисел');
readln(m, n);
k := gcd(m, n);
if k = 1 then writeln('Числа взаимно простые')
else writeln('Числа не являются взаимно простыми, НОД=', k)
end.

Тестовое решение:

Введите пару целых чисел
465 532
Числа взаимно простые

Введите пару целых чисел
13440 6930
Числа не являются взаимно простыми, НОД=210

MOGZ ответил