Дано n=12. Вычислить n-e значение переменной C.

а)самый большой овал-танцоры

далее-актеры

и самый маленький- певцы 

в) 2 элемента. 

program pr; vars,n: string; c: char; i: integer; beginwriteln('введите имя и фамилию в одной строке'); readln (s); i: =1; while s[i]< > ' ' do i: =i+1; n: =copy(s,1,i-1); writeln(n); readln; end.

program dddd; uses crt; var a,b,c,i: integer; beginclrscr; c: =10; readln(a); while a < > 0 dobeginb: = a mod 10; if b < c then c: =b; a: = a div 10; end; writeln(c); readkey; end.

253(8)=10101011(2)

2в4(16)=1010110100(2)

48(16)=1001000(2)