Практикум по решению задач на ЭВМ. Тарова И.Н - 58 стр.

                           Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.


  var d:integer;
begin
  while a<>b do
  if a>b then a:=a-b
  else b:=b-a;
  d:=a;
  nod:=d;
end;
begin
  readln(A,B,C);
  D:=nod(A,B);{1-е обращение к функции}
  D:=nod(D,C);{2-е обращение к функции}
  writeln('nod(A,B,C)=',D);
  readln;
end.

Вариант II
program nod1(input,output);
var A,B,C,D:integer;
procedure nod(var a,b,d:integer);
begin
  while a<>b do
  if a>b then a:=a-b
  else b:=b-a;
  d:=a;
end;
begin
  writeln('Введите три числа А, В, С: ');
  readln(A,B,C);{ввод исход данных}
  nod(A,B,D);{первое обращение к процедуре}
  nod(C,D,D);{второе обращение к процедуре}
  writeln('D=',D);
  readln;
end.




7) Дано натуральное число n. Определить является ли оно простым.
program prost(input,output);


                                58