Var a:array[1..10] of Integer ;
b,i,k,f:integer;
Begin
WriteLn('Исходный массив');
For i:= 1 to 10 do
begin
a[i]:=Random(20)-10;
Write(a[i]:3);
end;
For k:=1 to 9 do
begin
For i:= 1 to 9 do
begin
if a[i]< a[i+1] then
begin
b:=a[i];
a[i] := a[i+1];
a[i+1]:=b;
end;
end;
end;
WriteLn;
WriteLn('Итоговый массив');
For i:= 1 to 10 do
Write(a[i]:3);
end.
а я разве их не решал????????
но ладнооо
1)
Program Pr1;
uses crt;
var stroka:string;
i,k,x:integer;
mas:array[byte] of integer;
Begin
clrscr;
readln(stroka);
i:=1;
repeat
val(stroka[i],k,x);
mas[i]:=k;
i:=i+1;
until i=length(stroka);
x:=0;
for i:=1 to length(stroka) do x:=x+mas[i];
if x=10 then writeln('TRUE')
else writeln('ELSE');
end.
2 я не знаю как решать
3)
Program Pr1;
uses crt;
var stroka:string;
i,k,x:integer;
mas:array[byte] of integer;
begin
clrscr;
readln(stroka);
i:=1;
while i<=length(stroka) do begin
val(stroka[i],k,x);
mas[i]:=k;
i:=i+1;
end;
x:=0;
for i:=1 to length(stroka) do x:=x+mas[i];
writeln(x);
end.
4)
Program Pr1;
uses crt;
var stroka:string;
i,k,x:integer;
mas:array[byte] of integer;
begin
clrscr;
readln(stroka);
i:=1;
while i<=length(stroka) do begin
val(stroka[i],k,x);
mas[i]:=k;
i:=i+1;
end;
x:=0;
for i:=1 to length(stroka)-1 do
for k:=1 to length(stroka)-i do if mas[k]=mas[k+1] then x:=x+1;
if x>0 then writeln('TRUE')
else writeln('FALSE');
end.
Ответ:
Исконная формула - =E$2+$D2,двигаем влево и E меняется на D,а $2 так и остается;$D остается,а значения строки меняются в зависимости от строки,в которую переносится значения
А1+B4=13+6=19;
A1:A4+B1:B4=13+12+11+10+6+11+7+6=76
A1=13 (=D$2+$D1)
A2=12 (=D$2+$D2)
A3=11 (=D$2+$D3)
A4=10 (=D$2+$D4)
Объяснение:
По пять цифр в ряду
n = 10:
1 2 3 4 5
6 7 8 9 10
11 12 13 14 15
16 17 18 19 20
n = 2:
1 10 11 100 101
110 111 1000 1001 1010
1011 1100 1101 1110 1111
10000 10001 10010 10011 10100
n = 3:
1 2 10 11 12
20 21 22 100 101
102 110 111 112 120
121 122 200 201 202
n=5:
1 2 3 4 10
11 12 13 14 20
21 22 23 24 30
31 32 33 34 40
n=8:
1 2 3 4 5
6 7 10 11 12
13 14 15 16 17
<span>20 21 22 23 24</span>