Программа в паскале "эффект матрицы". заменить символы на 0 и 1 и сделать их не голубыми, а зелеными на черном фоне. uses crt; var s, i, x, y, d, n: integer; r: real; begin clrscr; textbackground(black); x: =1; y: =1; textcolor(green); writeln(' нажмите любую '); readkey; clrscr; repeat textattr: =1; r: =48; while r< =128 do r: =r+0.001; randomize; n: =random(9); for i: =1 to n do begin d: =random(70); if d< 10 then d: =10; gotoxy(x, y); write(chr(d)); y: =y+1; if y=25 then y: =1; end; x: =random(80); if x> =80 then x: =1; writeln; writeln; until keypressed; textattr: =145; gotoxy(32, 12); writeln('г==============¬'); gotoxy(32, 13); writeln('¦ до встречи ¦'); gotoxy(32, 14); writeln('l==============-'); readln; end.

Убери (или закомментируй) строку  textattr: =1; после  repeat  чтобы были 0 и 1 замени фрагмент  for i: =1 to n do   begin           d: =random(3);           gotoxy(x,y);           if d< 2 then write(d) else write(' ');           на моей машине работает быстро. чтобы замедлить, увеличь число 128 (я ставил 12800)  в строке while r< =128 do 

Объяснение:

1.Можете заполнить a.

a=[]

x=int(input('Введите число: '))

if x in a:

   print(7145)

else:

   print(5741)

2.

a=[0]*10

s=0

for i in(a):

   a[i]=int(input('Введите число: '))

   if a[i]>0:

       s+=a[i]

print('Сумма положительных чисел: ',s)

3.

a=[0]*10

pr=1

for i in(a):

   a[i]=int(input('Введите число: '))

   if a[i]%2==1:

       pr*=a[i]

print('Произведение нечетных чисел:',pr)

4.

a=[0]*10

for i in range(0,10):

   a[i]=int(input('Введите число: '))

c=min(a)

print('Минимальный элемент массива:',c)

5.

a=[0]*10

for i in range(0,10):

   a[i]=int(input('Введите число: '))

c=min(a)

print('Позиция минимального элемента:',a.index(c))

Бюджетный игровой сегмент

Платформа

модель

цена на момент публикации обзора, грн

AMD

MSI B450-A PRO MAX

2499

ASUS PRIME B450-PLUS

2611

GIGABYTE B450M S2H

1899

Intel

ASUS PRIME H310M-K R2.0

1591

ASUS PRIME B360M-K

1974

Средне-высокий ценовой сегмент – для гейминга на высоких настройках

Intel

ASUS PRIME Z390-P

3555

MSI Z390-A PRO

3365

GIGABYTE Z490M

4191

AMD

ASRock B550 PRO4

4412

MSI MAG B550 TOMAHAWK

5625

Высокий ценовой сегмент. Ультимативный гейминг. Видеомонтаж, работа со сложными вычислениями

Intel

ASUS ROG MAXIMUS XII APEX

15136

MSI MEG Z490 ACE

12574

AMD

ASUS ROG Crosshair VIII Impact

12999

ASRock X570 PHANTOM GAMING X

12325

MSI MEG X570 ACE

11421