Uses crt;
var a,b:integer;
begin
randomize;
a:=random(100);
writeln(a);
repeat
readln(b);
if b=100 then writeln('дополнено');
if b<100 then writeln('прибавь еще');
if b>100 then writeln('убавь-ка');
until b=100;
end.
Перевести число 100110 из двоичной в десятичную
При использовании 16777213 цветов (2^24) для хранения цвета одного пикселя требуется log(2)2^24 = 24 бита = 3 байта.
Необходимые объемы видеопамяти:
1) 640*480*3 байт = 921 600 байт = 921 600 / 1024 Кбайт = 900 Кбайт
2) 800*600*3 байт = 800*600*3 / 1024 Кбайт = 1406,25 Кбайт
3) 1024*768*3 байт = 1024*768*3 / 1024 Кбайт = 2304 Кбайт
4) 1240*1024*3 байт = 1240*1024*3 / 1024 Кбайт = 3720 Кбайт
===== PascalABC.NET =====
begin
var n := ReadInteger('n=');
var a := ArrRandom(n, 1, n);
a.Println;
a.Where((v, i) -> v = i + 1).Count.Println
end.
Держи ответ. формулы для пепевода 8=4:2:1. 16=8:4:2:1