реализовать в виде модуля

[fatalist30000]

реализовать в виде модуля набор следующих операций с целыми числами.
1. Процедура проверки есть ли в записи n-значного числа три одинаковых цифры;
2.Найти наибольшую и наименьшую цифру в записи данного натурального числа;
3.Дано натуральное число N. Найти и вывести все числа в интервале от 1 до N, у которых сумма все
цифр совпадает данного числа. Если таких чисел нет, то вывести слово "нет". Пример N=44, числа 17,26,35.
Разработать программу, использующую подпрограммы данного модуля.

[Leshii]

Что "Реализовал"? Вспоминаем операции div и mod, туда же еще циклы for и while.

[Yurk@]

1.

var 
i, j, k :integer;
...
k:=0;
for i:=1 to Length(N) do // N - натуральное число
  for j:=i+1 to Length(N) do 
  begin
    if N[i]=N[j] then k:=k+1;
    if k>=3 then <сообщение что число повторилось 3 или более раза>;
  end;

2.

var
minN, maxN :integer;
...
minN:=0;
maxN:=0;
for i:=1 to Lenth(N) do // N - натуральное число
  if N[i]>maxN
    then maxN:=N[i]
    else if N[i]<minN
            then minN:=N[i];

3. не понял(

[fatalist30000]

можешь сделать модуль в пакале с этими процедурами

[Sciv]

можешь сделать модуль в пакале с этими процедурами

ну в конец обленились... Модуль в паскале - это четыре слова: Unit, Interface, Implementation,End. Самое главное - основу модуля, процедуры - Вам уже дали.

[TinMan]

Нда, "модуль в пакале"...
Чисто из любви к искусству пишу - вот примерно так можно сделать пункт 3.

function DecDigSum(n: word): word;
begin
  if n=0 then DecDigSum:= 0
  else DecDigSum:= n mod 10 + DecDigSum(n div 10)
end;

procedure PrintSameDigSumNumbers(n: word);
var
  s,i: word;
begin
  s:= DecDigSum(n);
  for i:=1 to n-1 do
    if DecDigSum(i)=s then writeln(i)
end;

Кроме прочего, я бы все же постарался не прибегать к символьной записи там, где это не необходимо. Я согласен, что строки вообще-то дают более широкий диапазон "чисел" (взял в кавычки, потому что это не совсем числа). Но если диапазон не оговорен, будем считать что он нормальный integer (или LongInt). Так что, например, решение п.2 я бы сделал так..

function Min(a,b: word): word;
begin
  if a<b then Min:= a else Min:= b
end;

function Max(a,b: word): word;
begin
  if a<b then Max:= b else Max:= a
end;

function MinDig(n: word): word;
begin
  if n<10 then
    MinDig:= n
  else
    MinDig:= Min(n mod 10, MinDig(n div 10))
end;

function MaxDig(n: word): word;
begin
  if n<10 then
    MaxDig:= n
  else
    MaxDig:= Max(n mod 10, MaxDig(n div 10))
end;

[fatalist30000]

а как эти процедуры в модуль засунуть?

[TinMan]

Сообщение от fatalist30000

а как эти процедуры в модуль засунуть?

Фаталист, а ты в учебник или справку не можешь заглянуть?
Я приведу пример с небольшими пояснениями, так и быть..

unit IntegerCollection;
// unit name MUST be the same as file name!
// here, the file MUST be IntegerCollection.pas

interface
// in this section, DECLARE variables, functions & procedures to be seen from outside

function DecimalDigitsSum(n: word): word;
procedure PrintNumbersOfSameDigitsSum(n: word);
function Min(a,b: word): word;
function Max(a,b: word): word;
function MinDigit(n: word): word;
function MaxDigit(n: word): word;

implementation
// below, implement the declared functions & procedures

function DecimalDigitsSum(n: word): word;
begin
  if n=0 then DecimalDigitsSum:= 0
  else DecimalDigitsSum:= n mod 10 + DecimalDigitsSum(n div 10)
end;

procedure PrintNumbersOfSameDigitsSum(n: word);
var
  s,i: word;
begin
  s:= DecimalDigitsSum(n);
  for i:=1 to n-1 do
    if DecimalDigitsSum(i)=s then writeln(i)
end;

function Min(a,b: word): word;
begin
  if a<b then Min:= a else Min:= b
end;

function Max(a,b: word): word;
begin
  if a<b then Max:= b else Max:= a
end;

function MinDigit(n: word): word;
begin
  if n<10 then
    MinDigit:= n
  else
    MinDigit:= Min(n mod 10, MinDigit(n div 10))
end;

function MaxDigit(n: word): word;
begin
  if n<10 then
    MaxDigit:= n
  else
    MaxDigit:= Max(n mod 10, MaxDigit(n div 10))
end;

end.

Yurk@, как-то странно ты трактуешь наличие трех одинаковых цифр.. Мне мой здравый смысл подсказывает совсем другое.

function SameDigits(n,q: word): boolean;
// returns TRUE if there are at least q same digits in n
var
  c: array[0..9] of byte;
begin
  SameDigits:= q<=1;
  if n>9 then begin
    FillChar(c,SizeOf(c),0);
    while n>0 do begin
      inc(c[n mod 10]);
      if c[n mod 10]>=q then begin
        SameDigits:= true;
        exit
      end;
      n:= n div 10
    end
  end
end;

Код писал тут, не проверял.