Даны два числа. Найти их наибольший общий делитель. (Паскаль). Created by ludmila0913. informatika-ru

Даны два числа. Найти их наибольший общий делитель. (Паскаль)...

October 2021 1 29 Report

Даны два
числа. Найти их наибольший общий делитель.

(Паскаль)

Answers & Comments

BSergey9914 Var n, k, nod:integer;

begin
     readln(n, k);
     if (n > k) then
     begin
          nod:=k;
     end;

     if (n < k) then
     begin
          nod:=n
     end;

     if (n = k) then
     begin
          nod:=n;
     end;

     while(true) do
     begin
          if (k mod nod <> 0) then nod:=nod-1;
          if (n mod nod <> 0) then nod:=nod-1;

          if (k mod nod = 0) and (n mod nod = 0) then break;
     end;

     writeln('Наименьший общий делитель: ', nod);
end.

5 votes Thanks 5

Answers & Comments

dany dva chisla n i m sozdajte dvumernyj massiv anm zapolnite ego tablicej5a18d9858b5900ed12e2c9fc39dc2fa7 12140

cfunction election x y zboolean booleanpascalvozvrashayushuyu to zna

proverte yavlyaetsya li chislo prostymvvoditsya odno chislonformat vyhodnyh danny

cfunction power areal nlongint realpascal vychislyayushuyu znacheniean

dana stroka soderzhashaya probely najdite v nej samoe dlinnoe slovo vyvedite eto

dany dva naturalnyh chisla n i k trebuetsya vyvesti vse cepochki x1 x2 xn

рекомендуемые вопросы

Helpful Links

Helpful Social