231 вот вроде послеыждцбадв
Var s:string;
begin
for var i:=1000 to 9999 do
begin
s:=i.ToString;
if((strtoint(s[1])+strtoint(s[2])+strtoint(s[3])+strtoint(s[4]))<4)then write(i,' ');
end;
end.
................................................
1) 10*1024*8/1024=80секунд
2) Для начала найдем, сколько бит используется для кодирования одного пикселя:
256=2^x
x=8
Теперь находим объем видеопамяти:
1024*640*8/8/1024=640Кбайт
Я думаю что В. Ведя себя как все, ты вливаешься в круг общения.
Если в своем кругу ты ведешь себя особо вежливо, то не думай что получишь взаимную вежливость.