var
m,v,s,a,d,mm: real;
begin
writeln ('задай количество миль');
v:=m*7;
writeln (m,'миль=',v,'верст');
s:=v*500;
writeln (m,'миль=',s,'саженей');
a:=s*3;
writeln (m,'миль=',a,'аршинов');
d:=a*28;
writeln (m,'миль=',d,'дюймов');
mm:=d*25.4;
writeln (m,'миль=',mm,'миллиметров');
end.
Я сам только в 10-ом классе, это задание вижу впервые. Тем не менее оно не очень сложное. Первым шагом выпишем первые 10 букв латинского алфавита. Я также перепишу первые 4 строки из примера.
1)A [1]
2)BAA [3]
3)CBAABAA [7]
4)DCBAABAACBAABAA [15] [2-7]
5)E [31] [18-23]
6)F [63] [19-24]
7)G [127] [83-88]
8)H [255] [84-89]
9)I [511] [340-345]
10)K [1023] [341-346]
Вторым шагом укажем длину каждой строки: [1], [3], [7], [15] и т. д.
Дальше пойдем с самого конца вверх. В десятой строчке нам нужна группа символов с 341 по 346. Занесем это в наш столбик.
При переходе на девятую строчку заметим, что наша "область определения" (далее ОО) умещается этой строке. Учтем, что в девятой строке нет символа 'K' - сдвинем границы ОО на единицу [340-345].
Не останавливаемся. ОО уже не помещается в 8-ую строчку. Сдвинем границы ОО на единицу и вычтем длину строки. Т.е. [(340 - 1 - 255) - (345 - 1 - 255)] => [84 - 89]. Отметим это в восьмой строчке.
Таким образом, мы получаем два сценария - 1) ОО умещается в длину строки, 2) ОО не умещается в строке. В первом случае при переходе на новую строку просто смещаем границу на единицу. Во втором случае смещаем ОО на длину строки и единицу.
Соблюдая правило, приближаемся к четвертой строке. Для нее получили границу [2 - 7]. Ответом на первый вопрос будет строка со второго по седьмой символ четвертой строки: CBAABA
Ответ на второй найти проще. С увеличением номера строки кол-во 'A' увеличивается в два раза. Для нахожения количества букв 'A' можно воспользоваться формулой 2^(i-1), где i - номер строки. Т.е. в 10-ой строке 512 букв 'A'. Ну а символов отличных от 'A' 1023 - 512 = 511.
Чтобы не быть голословным прикрепляю Python скрипт, в котором я проверил свое решение.
Учись думать логически, развивай пространственное мышление. Удачи на экзамене!
Хахахаа, я такую программу сам создавал от нефиг делать)) ток во втором мб не нужно в квадрате???
исходник от java прикрепил,
вот паскаль
var a,b,c,d,x1,x2 :extended;
begin
readln(a,b,c);
d:=(b*b)-(4*a*c);
if d<0 then begin write('Korney net!'); end;
if d=0 then begin
if b<0 then begin b:=b+b+b; x1:=b/(2*a); write(x1); end;
if b>0 then begin b:=b-b-b; x1:=b/(2*a); write(x1); end; end;
if d>0 then begin
if b<0 then begin b:=b+b+b; x1:=(b-sqrt(d))/(2*a); x2:=(b+sqrt(d))/(2*a); write(x1,x2); end;
if b>0 then begin b:=b-b-b; x1:=(b-sqrt(d))/(2*a); x2:=(b+sqrt(d))/(2*a); write(x1,x2); end;
end; end.
1)program task1;
2)uses crt;
3)const n=10;
4)var a:array[1..n] of integer;
5) i:integer;
6)sr:real;
7)begin
8)clrscr;
9)randomize;
10)for i:=1 to n do
11)begin
12)a[i]:=random(11)*1;
13)write(a[i],' ');
14)end;
15)for i:=1 to n d
16)begin
17)sr:=(a[1]*a[2]*a[3]*a[4]*a[5]*a[6]*a[7]*a[8]*a[9]*a[10])/n;
18)end;
19)writeln;
20)writeln('srednee arefmiticheskoe=',sr:6:2);
21)readln;
22)end
Компьютер самое главное в нашей жизни.В спомощью его помощью мы можем искать информацию быстро и сидеть дома в этом людей time.Also можете создавать свои собственные файлы и распечатать documents.It очень удобно и почти affordable.So всем мире имеют компьютеры.