Женя учится на 8 и 9.он принципиально не получает другие оценки.любая последовательность его оценок состоит из этих двух цифр.интересно,сколько существует n-значных чисел, в десятичной записи которых присутствуют только цифры 8 и 9.
Тебе нужно ввести число 2 в степени N. Но по условию задачи (просто эта задача находится у нас в dots) это число может быть равно 25. А число 2 в 25 степени довольно большое.
Поэтому единственное что осталось написать - это алгоритм возведения N в квадрат (но длинной арифметикой).
Var a:array[1..50] of integer; b:array[1..2,1..25] of integer; i,j,n:integer; begin writeln('Вводите элементы массива, конец ввода по значению 7777'); n:=0; repeat read(i); if i<>7777 then begin n:=n+1; a[n]:=i end until i=7777; if n mod 2<>0 then begin n:=n+1; a[n]:=0 end; for j:=1 to n div 2 do begin b[2,j]:=a[2*j-1]; b[1,j]:=a[2*j] end; writeln; for i:=1 to 2 do begin for j:=1 to n div 2 do write(b[i,j]:5); writeln end end.
Тестовый прогон:
Вводите элементы массива, конец ввода по значению 7777 2 5 1 6 9 2 7777
5 6 2 2 1 9
Вводите элементы массива, конец ввода по значению 7777 2 5 1 6 9 2 4 7777
function FirstNegative(a: V; n: integer): integer; var i: integer; begin i := 0; Result := 0; repeat i := i + 1; if a[i] < 0 then Result := i until (Result > 0) or (i > lim) end;
procedure InpMass(var a: V; var n: integer; mName: string); // Организует ввод массива var i, p: integer; begin writeln('Вводите элементы массива ' + mName + '; 7777 - конец ввода'); i := 0; repeat read(p); i := i + 1; if p <> 7777 then a[i] := p; until (p = 7777) or (i > lim); n := i - 1 end;
var a, b: V; m, n, p, q: integer;
begin InpMass(a, m, 'A'); InpMass(b, n, 'B'); p := FirstNegative(a, m); q := FirstNegative(b, n); if p <= q then writeln('Номер первого отрицательного элемента в массива А: ', p) else writeln('Номер первого отрицательного элемента в массива B: ', q) end.
Тестовое решение:
Вводите элементы массива A; 7777 - конец ввода 37 14 -25 32 30 -29 38 27 7777 Вводите элементы массива B; 7777 - конец ввода 33 -36 23 -17 -3 -16 -33 33 -48 -39 30 7777 Номер первого отрицательного элемента в массива B: 2
Но по условию задачи (просто эта задача находится у нас в dots) это число может быть равно 25. А число 2 в 25 степени довольно большое.
Поэтому единственное что осталось написать - это алгоритм возведения N в квадрат (но длинной арифметикой).