Написать программу на языке программирования, которая выводит двоичное представление введённого с клавиатуры десятичного целого числа в диапазоне от 0 до 255.
Пример решения 
–
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var a,b,i:integer;
s:string;
begin
a:=StrToInt(Edit1.Text);
s:='';
Edit2.Text:='';
for i:=1 to 8 do
begin
b:=a mod 2;
s:=s+IntToStr(b);
a:=a div 2;
end;
s:=s+IntToStr(b);
for i:=8 downto 1 do
Edit2.Text:=Edit2.Text+s[i];
end;
end.
Задача № 17
Написать программу на языке программирования, которая вычисляет сумму ряда 1-1/3+1/5-1/7+…+1/N. Число N вводится с клавиатуры.
Пример решения –
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var s:real;
i,n,z:integer;
begin
i:=1;
n:=StrToInt(Edit1.Text);
s:=1;
z:=-1;
while i<n do
begin
i:=i+2;
s:=s+1/i*z;;
z:=-z;
end;
Label3.Caption:='Сумма ряда равна: '+FloatToStr(s);
end;
end.
