Отыскать величайший делитель естественного чисел 12 18.На языке Паскаль

Вдповдь:

program nodd;

var chislo1, 1-ое число

   chislo2, второе число

   nod,     величайший общий делитель

   r:integer;  остаток отделения 1-го числа на 2-е

begin

Writeln ('Vvedite chisla:');

Readln (chislo1,chislo2); ввод 2-ух чисел с клавиатуры

     while (chislo1 mod chislo2)lt;gt;0 do цикл производится пока остаток lt;gt; 0

        begin

          r:=chislo1 mod chislo2;  вычисление остатка 1-го числа на 2-ое

          chislo1:=chislo2;        присваиваем 2-е число 1-му

          chislo2:=r;          присваиваем остаток от дробленья 2-му числу

        end;

nod:=chislo2;            присваиваем 2-е число переменной nod

Writeln ('NOD: ',nod);   Вывод НОД

Readln;

end.

Пояснення: