Категория
Информатика
Тип
реферат
Страницы
17 стр.
Дата
06.07.2013
Формат файла
.doc — Microsoft Word
Архив
751450.zip — 25.99 kb
  • programmirovanie-na-jazykax-vysokogo-urovnja-2_751450_1.doc — 26 Kb
  • programmirovanie-na-jazykax-vysokogo-urovnja-2_751450_2.doc — 70 Kb
Оцените работу
Хорошо  или  Плохо


Текст работы

  задача №2

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    memo: TMemo;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
   private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var i,j,b,k:integer;
    a:array [1..3267] of integer;
begin
a[1]:=2;
j:=1;
for i:=3 to strtoint(edit1.text) do begin
  b:=1;
  for k:=1 to j do if ((i mod a[k])=0) then b:=0;
  if b=1 then
  begin



Ваше мнение



CAPTCHA