подпрограмы

[андей1323]

Задачи на Delphi 7:

1) Определить, является ли число автоморфным, то есть квадрат этого числа заканчивается этим же числом, например число 6, так как его квадрат 36 заканчивается на 6 или число 25 - его квадрат 625.

2) Составить программу нахождения наибольшего общего делителя нескольких чисел, используя функцию нахождения НОД двух чисел.

3) Составить программу, вычисляющую наименьшее общее кратное четырех заданных

[Nikita++]

Напиши функцию которая находит нок двух чисел (используя алгоритм Евклида).Затем nok(nok(a,b),nok(a,b)). Почти тоже самое с нодом. Nok=(a*b)/nod.

Если есть вопросы, то пиши.

[Nikita++]

В первом идешь циклом и находишь длину числа a. Затем b:=10 в степени длины a. Затем if (a*a)mod b=a.

[pr0kazn1k]

Сообщение от Nikita++

В первом идешь циклом и находишь длину числа a. Затем b:=10 в степени длины a. Затем if (a*a)mod b=a.

Nikita++, если не трудно напиши код! заранне спасибо!

[Nikita++]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
   a:integer;
function la(y:integer):integer;
var
   x:integer;
begin
   x:=0;
   while (y>0) do
   begin
      y:=y div 10;
      inc(x);
   end;
   la:=x;
end;

function pow10(m:integer):integer;
var
   i,x:integer;
begin
   x:=10;
   for i:=2 to m do x:=x*10;
   pow10:=x;
end;

begin
  readln(a);
  if (((a*a)mod pow10(la(a)))=a) then writeln('YES')
  else writeln('NO');
  readln;
end.

Если помог нажми на весы)

[Nikita++]

2:

2:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
   m,n,p,i:integer;

function nod(a,b:integer):integer;
var
   r:integer;
begin
   repeat
      r:=a mod b;
      a:=b;
      b:=r;
   until (b=0);
   nod:=a;
end;

begin
   read(m,n);
   p:=n;
   for i:=2 to m do
     begin
        read(n);
        p:=nod(p,n);
     end;
   writeln(p);
   readln;readln;
end.

[андей1323]

сможншь еше написать код для 3