Begin
var a:=ArrRandom(30, -100, 100);
var k:=a.Where(t->t<0);
a.Print;
println();
println('Cумма: ', k.Sum);
end.
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}), то это число не подходит => уравнение не имеет решения.
Program e;
var d : real; x,y,z : integer; all : integer;result: real;beginWriteln('ко-лво страниц');Readln(x);Writeln('ко-лво строк');Readln(y);Writeln('ко-лво символов');ReadLn(z);
d:= 1.44 * 1024;
all := x*y*z;
result := d/all;writeln('Поместится книг:',trunc(result)); end.
Const
n = 20;
var
a: array[1..n] of integer;
i: integer;
flag: boolean;
begin
Randomize;
Writeln('Элементы массива');
for i := 1 to n do
begin
a[i] := Random(19999) - 9999;
Write(a[i]:6);
end;
Writeln;
i := 1;
flag := False;
repeat
flag := (sign(a[i]) = sign(a[i + 1]));
i := i + 1
until flag or (i > n);
if flag then Writeln('Есть пара соседних элементов с одним знаком')
else Writeln('Нет пар соседних элементов с одним знаком')
end.
<u>Тестовое решение:</u>
Элементы массива
2440 -2414 -3192 -6912 -8537 7364 2869 -2505 8875 2662 401 7398 2213 8804 2039 1485 4213 8359 -2410 -5844
Есть пара соседних элементов с одним знаком
Это Микрофон если что, странно это не знать)