Рекурсивная: function NOD(x,y:integer):integer; begin if x<>0 then NOD:=NOD(y mod x,x) else NOD:=y; end; var a,b:integer; begin write('a='); readln(a); write('b='); readln(b); writeln('НОД=',NOD(a,b)); end.
Не рекурсивная: function NOD(x,y:integer):integer; begin while (x<>0)and(y<>0) do if x>y then x:=x mod y else y:=y mod x; NOD:=x+y; end; var a,b:integer; begin write('a='); readln(a); write('b='); readln(b); writeln('НОД=',NOD(a,b)); end.
А) var s:string; mas:array ['a'..'z'] of longint;{индексы элементов соответствуют латинице} c:char; i:longint; begin read(s); for c:='a' to 'z' do{заполнение нулями элементов массива, для запоминания количества элементов в латинице} mas[c]:=0; for i:=1 to ord(s[0]) do{пробегаем по всей строке ord(s[0]) это количесвто элементов в строке (только паскаль)} mas[s[i]]:=mas[s[i]]+1; for c:='a' to 'z' do{пробегаем по массиву значений и выводим только неповторяющиеся} if(mas[c]=1) then writeln(c); end.
function NOD(x,y:integer):integer;
begin
if x<>0 then NOD:=NOD(y mod x,x) else NOD:=y;
end;
var a,b:integer;
begin
write('a='); readln(a);
write('b='); readln(b);
writeln('НОД=',NOD(a,b));
end.
Не рекурсивная:
function NOD(x,y:integer):integer;
begin
while (x<>0)and(y<>0) do
if x>y then x:=x mod y else y:=y mod x;
NOD:=x+y;
end;
var a,b:integer;
begin
write('a='); readln(a);
write('b='); readln(b);
writeln('НОД=',NOD(a,b));
end.
Пример:
a=125
b=50
НОД=25