Bлюбое число, которое вводится в a. пример ввожу слово 45, выводит слово 45.var a: string; b: integer; beginread(a); if a='слово'+b thenbeginwriteln(a); end; end.
Var N1:array[1..10] of integer; N2:array[1..15] of integer; R1:array[1..10] of integer; R2:array[1..15] of integer; min1, min2, max1, max2, i:integer; R1min, R2min, R1max, R2max:integer; begin min1:=500; min2:=500; max1:=0; max2:=0; randomize; for i:=1 to 10 do N1[i]:=random(900)+100; for i:=1 to 15 do N2[i]:=random(900)+100; for i:=1 to 10 do R1[i]:=random(500); for i:=1 to 15 do R2[i]:=random(500); for i:=1 to 10 do if R1[i]<min1 then begin min1:=R1[i]; R1min:=i; end else begin if R1[i]>max1 then begin max1:=R1[i]; R1max:=i; end; end; for i:=1 to 15 do if R2[i]<min2 then begin min2:=R2[i]; R2min:=i; end else begin if R2[i]>max2 then begin max2:=R2[i]; R2max:=i; end; end; writeln('v 1 taxoparke min ', N1[R1min]); writeln('vo 2 taxoparke min ', N2[R2min]); writeln('v 1 taxoparke max ', N1[R1max]); writeln('vo 2 taxoparke max ', N2[R2max]); write('N1 '); for i:=1 to 10 do write(N1[i], ' '); writeln; write('R1 '); for i:=1 to 10 do write(R1[i]:3, ' '); writeln; write('N2 '); for i:=1 to 15 do write(N2[i], ' '); writeln; write('R1 '); for i:=1 to 15 do write(N1[i]:3, ' '); writeln; end.
Последовательности длиной 7, содержащей 5 букв А могут быть следующими: ** (* - любой из символов В или С) *А* ААА*АА* АА*ААА* А** ** (пока 6 вариантов) Далее - аналогично: **А ААА*А*А АА*АА*А А*ААА*А **А (ещё 5 вариантов) ААА**АА АА*А*АА А*АА*АА *ААА*АА (ещё 4 варианта) АА**ААА А*А*ААА *АА*ААА (ещё 3 варианта) А** *А* (ещё 2) ** (ещё 1) Итого: 6+5+4+3+2+1=21 Так как на месте * могут быть любые из 2 символов В или С, то это даст ещё по 4 варианта для каждого случая. Можно здесь, конечно, комбинаторику вспомнить. Итого: 21*4 = 84
N2:array[1..15] of integer;
R1:array[1..10] of integer;
R2:array[1..15] of integer;
min1, min2, max1, max2, i:integer;
R1min, R2min, R1max, R2max:integer;
begin
min1:=500;
min2:=500;
max1:=0;
max2:=0;
randomize;
for i:=1 to 10 do
N1[i]:=random(900)+100;
for i:=1 to 15 do
N2[i]:=random(900)+100;
for i:=1 to 10 do
R1[i]:=random(500);
for i:=1 to 15 do
R2[i]:=random(500);
for i:=1 to 10 do
if R1[i]<min1 then
begin
min1:=R1[i];
R1min:=i;
end else
begin
if R1[i]>max1 then
begin
max1:=R1[i];
R1max:=i;
end;
end;
for i:=1 to 15 do
if R2[i]<min2 then
begin
min2:=R2[i];
R2min:=i;
end else
begin
if R2[i]>max2 then
begin
max2:=R2[i];
R2max:=i;
end;
end;
writeln('v 1 taxoparke min ', N1[R1min]);
writeln('vo 2 taxoparke min ', N2[R2min]);
writeln('v 1 taxoparke max ', N1[R1max]);
writeln('vo 2 taxoparke max ', N2[R2max]);
write('N1 ');
for i:=1 to 10 do
write(N1[i], ' ');
writeln;
write('R1 ');
for i:=1 to 10 do
write(R1[i]:3, ' ');
writeln;
write('N2 ');
for i:=1 to 15 do
write(N2[i], ' ');
writeln;
write('R1 ');
for i:=1 to 15 do
write(N1[i]:3, ' ');
writeln;
end.
** (* - любой из символов В или С)
*А*
ААА*АА*
АА*ААА*
А**
** (пока 6 вариантов)
Далее - аналогично:
**А
ААА*А*А
АА*АА*А
А*ААА*А
**А (ещё 5 вариантов)
ААА**АА
АА*А*АА
А*АА*АА
*ААА*АА (ещё 4 варианта)
АА**ААА
А*А*ААА
*АА*ААА (ещё 3 варианта)
А**
*А* (ещё 2)
** (ещё 1)
Итого: 6+5+4+3+2+1=21
Так как на месте * могут быть любые из 2 символов В или С, то это даст ещё по 4 варианта для каждого случая.
Можно здесь, конечно, комбинаторику вспомнить.
Итого: 21*4 = 84