program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
    System.SysUtils;

Var n, i: Longint;
        k: integer;
          A: array[0..10] of byte;

begin
    writeln('Введите число : ');
    readln(n);
    i:=n;
    k:=0;
    while i<>0 do
         begin
           k:=K+1;
           i:=i div 10;
         end;
         writeln('В числе ',n,' - ',k, 'цифр!');
          while n>0 do
            begin
              A [n mod 10]:=A[n mod 10]+1;
              n:=n div 10;
            End;
          for I := 0 to 9 do
           writeln('Цифра ',i,' встречается ',A[i],' раз(а)');
           readln;
end.

unit Unit1;
     
interface
     
uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
     
type
    TKursovaua = class(TForm)
      Edit: TEdit;
      Label1: TLabel;
      Label2: TLabel;
      LabelVvod: TLabel;
      Button1: TButton;
      procedure Button1Click(Sender: TObject);
    private
      { Private declarations }
    public
      { Public declarations }
    end;
     
var
    Kursovaua: TKursovaua;
     
implementation
     
{$R *.dfm}
     
procedure TKursovaua.Button1Click(Sender: TObject);
Var
i,sum,count : integer;
s: string;
R: longint;
begin
s:=Edit.text;
sum:=0;
count:=0;
for i:=1 to length(s) do
begin
count:=count+1;
sum:=sum+ StrToInt(s[i]);
end;
ShowMessage(' Число =' + IntToStr(sum) +#13+ 'Встречается раз =' + IntTostr(count ));
     
end;
     
end.

include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TStringList *r = new TStringList;
int pr = Form1->Memo1->Lines->Count;
for (int i = 0; i < pr; i++)
{
r->Add(Form1->Memo1->Lines->Strings[i]);
}
Form1->Memo1->Lines->Clear();
r->Sort();
Form1->Memo1->Lines->AddStrings(r);
delete r;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  TStringList *r = new TStringList;
int pr = Form1->Memo1->Lines->Count;
for (int i = 3; i > 0; i--)
{
r->Add(Form1->Memo1->Lines->Strings[i]);
}
Form1->Memo1->Lines->Clear();
r->Sort();
Form1->Memo1->Lines->AddStrings(r);
delete r;
}