Дано натуральное число. Верно ли, что в этом числе нет цифры А. А задается с клавиатуры.

[Женечка92]

Помогите пожалуйста!!! Вообще не могу понять как сделать, в инете нашла такую задачу, но это в паскале, а для делфи не могу сделать заранее большое спасибо.
uses CRT;
VAR
Num: Longint;
A, code: Integer;
Contains: Boolean;
Ch: Char;
S : String;
BEGIN
Write('Введите целое число: ');
ReadLn(Num);
Write('Введите цифру: ');
repeat
ch := ReadKey;
until (ch >= '0') and (ch <= '9');
VAL(ch, A, code);
WriteLn(A);
{Первый способ через преобразование числа в строку}
Str(Num, S);
WriteLn('1) Верно ли, что цифры ',A,' нет в числе ',Num,': ',
POS(ch, S) = 0);
{Второй способ через анализ цифр с помощью операции вычисления остатка
от деления MOD}
contains := FALSE;
Write('2) Верно ли, что цифры ',A,' нет в числе ',Num,': ');
while Num <> 0 do
begin
if (Num mod 10) = A then begin
contains:= TRUE; Break {Немедленный выход из цикла WHILE}
end;
Num := Num div 10;
end;
WriteLn(NOT contains);
END.

[Google2010]

готов помочь! icq: 553-566-179! недорого

[Женечка92]

меня нет в аське, и это необходимо сейчас

[Google2010]

нужно с формами? или консольное приложение?

[Женечка92]

Мне нужен листинг программы!

[Google2010]

пожалуйста!
delphi - консоль

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;


VAR
Num: Longint;
A, code: Integer;
Contains: Boolean;
Ch: Char;
S : String;
BEGIN
Write('Введите целое число: ');
ReadLn(Num);
Write('Введите цифру: ');
repeat
Readln(ch);
until (ch >= '0') and (ch <= '9');
VAL(ch, A, code);
WriteLn(A);
{Первый способ через преобразование числа в строку}
Str(Num, S);
WriteLn('1) Верно ли, что цифры ',A,' нет в числе ',Num,': ',
POS(ch, S) = 0);
{Второй способ через анализ цифр с помощью операции вычисления остатка
от деления MOD}
contains := FALSE;
Write('2) Верно ли, что цифры ',A,' нет в числе ',Num,': ');
while Num <> 0 do
begin
if (Num mod 10) = A then begin
contains:= TRUE; Break {Немедленный выход из цикла WHILE}
end;
Num := Num div 10;
end;
WriteLn(NOT contains);
readln;
END.

[Женечка92]

но ведь это же паскаль, а мне необходима программа для делфи. это у меня есть

[Google2010]

но ведь это же паскаль, а мне необходима программа для делфи

а разница?
создаете Console application
после

Uses Sysutils;

вставляете полностью код
и между

WriteLn(NOT contains);

и

END.

вставляете

readln;

и наслаждаетесь)

[Chudo4258]

Код: P.rar

3.jpg

1.jpg

2.jpg

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var n,m:integer;
begin
label3.Caption:='Нет цифры '+Edit2.Text+' в числе '+Edit1.Text;
n:=StrToInt(Edit1.Text);
while n<>0 do
 begin
  m:=n mod 10;
  if m=StrToInt(Edit2.Text) then label3.Caption:='Есть цифра '+Edit2.Text+' в числе '+Edit1.Text;
  n:=n div 10;
 end;
end;

end.

[Женечка92]

спасибо огромное