рами
Задача 1
Unit1;
interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls; = class (TForm): TEdit;: TEdit;: TButton;: TEdit;: TLabel;: TLabel; : TLabel; Button1Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm1;
{$ R *. dfm} TForm1.Button1Click (Sender: TObject); i, k, a, m, code: integer;, a1, s1: string;: = StrtoInt (Edit1.Text );: = StrtoInt (Edit2.Text); (k, s); (a, a1); i: = 1 to length (s) dos [i] <> a1 then: = s1 + s [i] ; (s1, m, code);. Text: = InttoStr (m);;.
Задача 2
Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls; = class (TForm): TEdit;: TEdit;: TEdit;: TEdit;: TButton;: TButton ;: TButton;: TButton;: TEdit;: TLabel;: TLabel; Button1Click (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject); Button4Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm1; Math, StrUtils;
{$ R *. dfm} mass: array of integer;: integer;: integer; TForm1.Button1Click (Sender: TObject); i: integer;;: = StrtoInt (Edit1.Text); (mass, N); i: = 0 to (N-1) do [i]: = round (sin (random (100)) * 100);. Text: = Edit5.Text + '' + InttoStr (mass [i ]);;; TForm1.Button2Click (Sender: TObject); i: integer;: integer;: = -100; j: = 0 to (N-1) domax max then Edit2.Text: = Edit2.Text + '' + InttoStr (mass [i]);;; TForm1.Button3Click (Sender: TObject ); i: integer;: integer;: = -100; j: = 0 to (N-1) domax = 9) and (((N mod 3) = 0) and ((N mod 2) = 1)) to (N-1) do.Text: = Edit4.Text + '' + InttoStr (mass [i]);
end;;;.