Запишем условие в 10-ном коде:
х(10)+2738-2584=138, х(10)=-16(10), двоичное отрицательное число в дополнительном коде х(2)=10000(2)
1)
var a:array [1..100] of integer;
n,i:integer;
begin
for i:=10 to 99 do begin
a[i]:=i;
if (a[i] mod n=0) then writeln(a[i]);
end;
end.
2)
var a:array [1..100] of integer;
n,k,i,x,y,z: integer;
begin
readln(n,k);
for i:=n to k do begin
a[i]:=i;
x:=a[i] mod 10;
y:=a[i] div 10;
z:=y mod 10;
y:=y div 10;
if (x=y) or (x=z) or (y=z) then writeln(a[i]);
end;
end.
3)
var a,n,an,na: integer;
begin
readln(a,n);
if (a>0) and (b>0) then begin
an:=a*10+n;
na:=n*10+a else writeln('Введены неверные числа!');
end;
end.
<span>from random import randint
n = int(input('Размер массива: '))
a = [randint(-15, 15) for i in range(n)]
print('Исходный массив:', *a)
b = [i for i in a if i % 2 == 0 and i > 0]
if len(b) == 0:
print('Нет четных положительных элементов')
else:
print('Максимальный из четных положительных =', max(b), 'минимальный =', min(b))</span>
можно сэкономить место на диске, т.е заархивировать это значить сжать данные в нескольео раз
компьютер
мощный, умный
подсказывает, вычисляет ,виснет
Это очень хороший помощник
изобретение