Найти НОД длинного числа - Pascal ABC

Формулировка задачи:

Ребят, в чём дело? Вот эта программа выводит "da"
var n,n1:string;
begin
n:='11';
n1:='1';
if n>n1 then writeln('da') else writeln('net');
end.
И эта программа тоже выводит "da"
var n,n1:string;
begin
n:='421';
n1:='1211';
if n>n1 then writeln('da') else writeln('net');
end.

Код к задаче: «Найти НОД длинного числа - Pascal ABC»

textual
var n,n1:string;
    f:boolean;
    k:integer;
begin
n:='421';
n1:='1211';
if length(n)<>length(n1)then f:=length(n)>length(n1)
else
 begin
  f:=true;
  k:=1;
  while (k<=length(n))and(n[k]=n1[k])do inc(k);
  if (k<=length(n))then f:=n[k]>n1[k];
 end;
if f then writeln('da') else writeln('net');
end.

5   голосов, оценка 3.400 из 5


СОХРАНИТЬ ССЫЛКУ