@Pussy_girl

unit Unit1;

interface

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

type
TForm1 = class(TForm)
edit2: TEdit;
edit3: TEdit;
lbl1: TLabel;
button2: TButton;
procedure button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
n,m,a,s:integer;
nx:string;
implementation

{$R *.dfm}

procedure TForm1.button2Click(Sender: TObject);
var n,m,ErrorCode,a,s:integer;
nx:string;
begin
Nx:=edit2.Text;
Nx:=edit3.Text;
Val(Nx,N,ErrorCode);
Val(Nx,m,ErrorCode);
if ErrorCode=0 then
begin
//решение задачи
while m>0 do//
begin
a:=m mod 10;//
if(a<>0)and(n mod a=0) then s:=s+a;//
m:=m div 10;
lbl1.caption:=inttostr(m);
end;
end;
end;
end.
Ничего не получается

Добавлено через 37 секунд
поняла вроде

Добавлено через 7 минут
procedure TForm1.button2Click(Sender: TObject);
var n,m,ErrorCode,a,s:integer;
nx:string;
begin
Nx:=edit2.Text;
Nx1:=edit3.Text;
Val(Nx1,N,ErrorCode);
Val(Nx,m,ErrorCode);
if ErrorCode=0 then
begin
//ðåøåíèå çàäà÷è
while m>0 do//
begin
a:=m mod 10;//
if(a<>0)and(n mod a=0) then s:=s+a;//
m:=m div 10;
lbl1.caption:=inttostr(m);
end;
end;
end;
end.
а вот так если?

Вернуться к обсуждению:
Написала код в Pascal, но не могу реализовать в Delphi Delphi

0