ПРАКТИЧЕСКАЯ РАБОТА «СОСТАВНОЙ ОПЕРАТОР

нет,оно вряд ли.ведь что такое компьютер? это арифрометр.не видили никогда такую машинку? компьютер работает тупо.а про разборки (искусственого интелекта) я могу много баек рассказать могу это дело.и в ученые доили.государство,и в сша.

var i: integer;

begin

  for i: =1 to 1000 do

      if i mod 2 = 1 then writeln(i*i*i);

end.

решение:  

1) 640 * 480 * 0,5 байта = 153600 байт.  512 * 1024 = 524288 байт  524288 / 153600 = 3,413 кадров.  2) 640 * 480 * 1 байт = 307200 байт  524288 / 307200 = 1,706 кадра.

ответ: примерно на одну страницу с половиной: )

var n,s: integer;

begin

  read(n);

  while n> 0 do begin

      s: =s+n mod 10;

      n: =n div 10;

  end;

  writeln(s);

end.