1) 12(x)=9(10)
1*x^1+2*x^0=9
x=9-2
x=7
12(7)=9(10)
2) 23(х) = 15(10)
2*х^1+3*x^0=15
2x=15-3
2x=12
x=12/2=6;
23(6) = 15(10)
3) 101(x)=17(10)
1*x^2+0*x^1+1*x^0=17
x^2=17-1
x^2=16
x=4
101(4)=17(10)
4) 15(x)=9(10)
1*x^1+5*x^0=9
x=9-5
x=4
т.к. в алфавит 4сс не входит цифра 5 ({0,1,2,3}), то это число не подходит => уравнение не имеет решения.
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var n:=ReadInteger();
var a:array of integer;
a:=ReadArrInteger(n);
var p:=ReadInteger();
Sort(a);
var i:=n-1;
while a[i]>p do Dec(i);
Writeln(i+2);
end.
<u><em>Тестовое решение:</em></u>
5
175 169 172 180 174
174
4
42*34=1428 байт на 1 лист
12*1428=17136 байт на 1 тетрадь
17136/1024~17,6 Кб
1,44~1475 Кб
1475/17,6~84 тетради
Ответ: 84 тетради
Const
handsfree = true;
var
a: array[1..100] of real;
i, n: integer;
sum: real;
begin
{ввод массива}
if handsfree then
n := random(20) + 5
else begin
write('n = ');
readln(n);
end;
writeln('Данные массива:');
for i := 1 to n do
begin
if handsfree then begin
a[i] := random(100) - 50;
write(a[i], ' ');
end
else readln(a[i]);
end;
writeln();
{подсчет суммы и произведения и агригатов}
sum := 0;
for i := 1 to n do
if a[i] < 0 then {если нужен фильтр}
sum := sum + a[i];
writeln('sum = ', sum);
end.