Не самый рациональный метод решения, но как говорится чем смог тем
var a,b,c,x,kc,kn,k1,k2:integer; begin kc:=1; kn:=1; k1:=0; k2:=0; a:=0; b:=0; writeln('Введите число x'); read(x); while x>0 do begin c:=x mod 10; if c mod 2=0 then begin inc(k1); a:=a+c*kc; kc:=kc*10; end; if c mod 2<>0 then begin inc(k2); b:=b+c*kn; kn:=kn*10; end; x:=x div 10; end; if k1>k2 then writeln('Четных больше нечетных') else if k1=k2 then writeln('Количество четных = количеству нечетных') else writeln('Четных меньше нечетных'); writeln(a,' ', b); end.
Язык Паскаль был создан Никлаусом Виртом в 1968—1969 годах после его участия в работе комитета разработки стандарта языка Алгол-68. Язык назван в честь французского математика, физика, литератора и философа Блеза Паскаля, который создал первую в мире механическую машину, складывающую два числа. Первая публикация Вирта о языке датирована 1970 годом; представляя язык, автор в качестве цели его создания указывал построение небольшого и эффективного языка хорошему стилю программирования, использующему структурное программирование и структурированные данные.
Последующая работа Вирта была направлена на создание на основе Паскаля языка системного программирования, с сохранением возможности вести на его базе систематический, целостный курс обучения профессиональному программированию.Результат этой работы — язык Модула-2.
968 = 9*16^2 + 6*16+8 = 2408