Найти наибольший общий делитель чисел a, b, c, создав функцию для нахождения нод двух натуральных чисел.

Var  a,b,c,d : integer; function nod(a,b: integer): integer; begin while a< > b do     if a> b then     a: =a-b     else b: =b-a; result: =a; end; begin writeln('введите а, b, c'); readln(a,b,c); d: =nod(a,b); d: =nod(d,c); writeln('нод = ',d); end.

Program nod(output); function nod (a1, a2: integer): integer; begin nod: =abs (a1 mod a2); writeln(#7); nod (a1, a2); end; var a, b, c, d: integer; begin readln (a, b, c); d: =nod(nod(a, b), c); writeln(d); readln; end.

Вот так попробуй var a: array[1..10] of integer; x, i: integer; l: boolean; begin write('введите ряд чисел - '); //заполняем массив for i: =1 to 10 do read(a[i]); //вводим число, которое нужно проверить write('введите число - '); readln(x); //проверяем, есть ли число в массиве //если есть, то l будет присвоено true for i: =1 to 10 do if a[i] = x thenl : = true; //проверяем,чему равна l if l=true then writeln('число ',x,' есть в массиве.') else writeln('числа ',x,' нет в массиве.'); end.

//pascal abc.net v3.1 сборка 1172 var   n,i,s,max,maxn: integer; begin n: =1; max: =-1;   while n< > 0 do   begin     readln(n);     for i: =1 to n div 2 do     if n mod i=0 then s: =s+i;     if max< s then     begin          max: =s;       maxn: =n;     end;     s: =0;   end;   writeln(maxn); end. пример ввода: 23 45 67 12 23 0 пример вывода: 45