1.Очень простая задача: program odd; var x:longint; k,n:integer; s:string; begin readln(x); str(x,s); n:=0; for k:=1 to length(s) do begin if ((x mod 10) mod 2)=1 then n:=n+1; x:=x div 10 end; writeln end.
Идиотизм. Для современного процессора, с тактовой частотой даже в два гигагерца (тоже мне "современный") одна секунда это целая вечность. Писать программу, которая займёт больше 512 мегабайт, шестикласснику придётся до пенсии. Для примера Лев Толстой за всю жизнь не написал двухсот мегабайт.