ГДЗ Информатика 9 класс Семакин — Алгоритм Евклида

1. program Evkild;
var
a, b: integer;
begin
write(Введите a: );
readln(a);
write(Введите b: );
readln(b);
while (a 0) and (b 0) do
if a >= b then
a := a mod b
else
b := b mod a;
writeln(Наибольший общий делитель = , a + b);
readln;
end.

2. Использование алгоритма Евклида (9 класс). Составьте программу нахождения наибольшего общего делителя трех чисел, используя следующую формулу: НОД(А, В, С) * НОД(НОД(А, В), С).

var
a, b, c:integer;
begin
write(a = ); readln(a);
write(b = ); readln(b);
write(c = ); readln(c);
write(НОД(, a, , , b, , , c, ) = );
while (a <> 0) and (b <> 0) do
if a >= b then
a := a mod b
else
b := b mod a;
a := a + b;
while (c <> 0) and (a <> 0) do
if a >= c then
a := a mod c
else
c := c mod a;
writeln(a + c);
end.

3. Использование алгоритма Евклида (9 класс). Составьте программу нахождения наименьшего общего кратного (НОК) двух чисел, используя формулу: А * В = НОД(А, В)-НОК(А, В).

uses crt;
var a,b,p : real;
nod,nok : real;
begin
clrscr;
write(‘a=’);readln(a);
write(‘b=’);readln(b);
p:=a*b;
while a<>b do
if a>b then a:=a-b
else b:=b-a;
nod:=a;
nok:=nod-p;
write(‘НОК:’,nok);
readln;
end