Unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Button1: TButton;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
A:array of shortint;
implementation
{$R *.dfm}
Function P(A:integer):boolean;
Var
d,K:integer;
Begin
P:=true;
if A < 2 then P:=false
else
if A < 4 then P:=true
else
if A mod 2 = 0 then P:=false
else
Begin
K:=Trunc(Sqrt(A));
d:=3;
While d <= K do
Begin
if A mod d = 0 then P:=false;
d:=d+2
End;
End;
End;
procedure TForm1.Button1Click(Sender: TObject);
Var
N:integer;
begin
Randomize;
Edit2.Text:='';
N:=StrToInt(Edit1.Text);
SetLength(A,N);
For N:= 0 to N-1 do
Begin
A[N]:=Trunc(Sin(random(20))*20);
if P(A[N]) then Edit2.Text:=Edit2.Text+IntToStr(A[N])+'0 '
else Edit2.Text:=Edit2.Text+IntToStr(A[N])+' '
End;
end;
end.
Исходный файл предоставлен в расширении .cpp, измените на .c
#include <stdio.h>
long int NOD(long int var1, long int var2)
{
while(var1 != var2)
{
if(var1 > var2)
var1 = var1 - var2;
else var2 = var2 - var1;
}
return var1;
}
long int NOK(long int var1, long int var2)
{
return var1 * var2 / NOD(var1, var2);
}
int main(void)
{
long int var1, var2;
scanf("%ld%ld", &var1, &var2);
printf("НОК(%ld, %ld) = %ld\n", var1, var2, NOK(var1, var2));
}
1(2)
2(2)
3(3)
4(т 1,3,5,8)
(Г 2,4,6,7)
(П 9,10,11,12)5 (ф 3,6)
(А 1,2,4,5,7,8)
1. Оперативная: а, г, д, е
Долговременная: б, в, ж
2. "0" или"1" - это 1 бит. 8 бит = 1 байту. отделим по 8 "0" и "1", начиная с конца. получится 4 разделения, т.е. 4 байта.
3. 1024 бит/8 = 128 байт. если запись велась с 10, то адрес последнего будет 10+128 = 138.
4. флеш-карта, дискета, CD, DVD, съемный жесткий диск.