<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
uses GraphABC;
begin
Window.SetSize(800,600);
Draw(x->x=1?1.0:10/(x-1)+5*Sin(x),-20.0,20.0)
end.
<u>Результат приведен во вложении</u>
var s,n: integer;
begin
write('введите трехзначное число: ');
readln(n);
s:=n mod 10+ n div 100+n div 10 mod 10;
write('сумма цифр: ',s);
end.
1. 350*200=70000 пикселей
65Кбайт=65*1024=66560 байт=66560*8=532480бит
532480/70000= 7.6 т.е 7 целых бит на пиксель
с помощью 7 бит можно закодировать 2^7=128 цветов
2. 8*8*1024 бит/128/128=4 бит
2^4=16
16 цветов
X:= 0 x=0 y=0
x:= x+1 x=1 y=0
y:= x x=1 y=1
<span>x:= 2*y+2*x x=4 y=1</span>
5RP2E-EPH3K-BR3LG-KMGTE-FN8PY
5ZN2A-JBSCK-SWYYI-DPHK6-CK3JX
5RP2E-EPH3K-BR3LG-KMGTE-FN8PY
5ZN2F-C6NTT-ZPBWP-L2DWQ-Y4B49
58V2E-CCKCJ-B8VSE-MEW9Y-ACB2K
5ZK2G-79JSD-FFSFD-CF35H-SDF4A
5Z62G-79JDV-79NAM-ZQVEB-ARBWY
5Z62E-79JDV-79NAM-ZGVE6-ARBWY
5ZQ2A-NI239-4F4K7-H9N8Q-VTSYT
5ZQ2B-NI239-4F4K7-H9N8Q-VTSYT
5ZQ2A-NI236-4F4K7-H9N8Q-VTSYT
5ZQ2A-NI236-4F4KY-H9N8Q-VTSYT