//PascalABC.NET 3.2 сборка 1318
Var
ar:array[1..4] of real;
i,j:integer;
c:real;
begin
for i:=1 to 4 do
readln(ar[i]);
for i:=1 to 3 do //так как только 8 класс, пузырёк
for j:=i+1 to 4 do
if ar[i]>ar[j] then
begin
c:=ar[i];
ar[i]:=ar[j];
ar[j]:=c;
end;
for i:=1 to 4 do
write(ar[i]:3);
end.
Пример ввода:
2
1
4
3
Пример вывода:
1 2 3 4
1) N=2^b
N=32
32=2^b
b=5 бит
2) N=8
8=2^b
b=3 бит
I=30*3=90 бит содержит сообщение
3) I=30 байт=240 бит
S=40 символов
I=S*b
240=40*b
b=240/40=6 бит
N=2^b
N=2^6=64 символа в алфавите
Program z1;
var n,P:integer;
begin
P:=0;
if ((n<30)and(n mod 2=0)) then
P:=n*(n-1);
writeln('P='P);
end.
программу не прогонял,поэтому не уверен.
Паскаль
program sss;
var i,n:integer;
begin readln(n);
for i:=1 to n-1 do write(2*i-1,' ');
writeln(2*n-1)
end.
В Form1 , создаете 7 объектов, (Edit1,Edit2,Edit3,Label1,Label2,Label3,Button1),2 кликк по кнопке (button1)
в созданную процедуру вставляйте код:
procedure TForm1.Button1Click(Sender: TObject);var a,b:integer;begin a:=StrToInt(Edit1.Text); b:=StrToInt(Edit2.Text); Edit3.Text:= IntToStr((a+b)*2)end;