Turbo Pascal
1)USES CRT;
VAR A:array[1..10] of integer;
i:integer;
BEGIN
CLRSCR;
For i:=1 to 10 do
begin
A[i]:=i+i+1;
Write(A[i],' ');
end;
READLN;
<span>END.
2)
USES CRT;
VAR A:array[1..10] of integer;
i:integer;
BEGIN
CLRSCR;
For i:=1 to 10 do
begin
A[i]:=i+i+i;
Write(A[i],' ');
end;
READLN;
<span>END.</span></span>
var
tmp, sum : integer;
begin
sum := 0;
while not eoln do
begin
read (tmp);
if (tmp >= 10) and (tmp <= 15) then
sum := sum + tmp;
end;
writeln (sum);
end.
По формуле Хартли:
N = 2^i = 2^4 = 16
А
б
в и всё а тактильную нет т к пощупать информацию мы не можем!)))