Вывести код символа по введенному символу. нужно написать программку.

var

  c: char;

begin

  write('введите символ ');

  readln(c);

  writeln('его номер - ', ord(c));

end.

Смотри. всё просто. тебе из 8 нужно перевести в двоичную, при этом у тебя дробное число. то есть у тебя есть целая часть (247) и дробная часть (16). нужно переводить по очереди, вначале целую часть, потом дробную, при этом при переводе целой - нужно делить, при переводе дробной - умножать, сейчас покажу алгоритм. вначале целую часть: мы делим на 2, потом пишем результат деления, а в скобочках пишем остаток. 247/2=123(1) 123/2=61(1) 61/2=30(1) 30/2=15(0) 15/2=7(1) 7/2=3(1) 3/2=1(1) теперь нам нужно записать то, что получилось, записывается снизу-вверх, начиная от той единички, что у нас получилась при делении 3 на 2. итого: 11110111 - это твоя целая часть. теперь дробная часть (16), мы должны приписать ноль, чтобы у нас получилось 0,16 (ведь это дробная часть). теперь умножаем на 2 пока не получится ровно единица, при этом записываем в ответ 0, если у нас целая часть получается ноль и 1, если целая часть получается 1. сейчас поймёшь: 0,16 * 2 = 0,32 - видишь, получился ноль, поэтому мы его в ответ пишем и продолжаем умножать на 2 часть после ноля, пока не получится ровно 1. 0,32 * 2 = 0,64 - опять ноль получился, в ответ ноль записываем еще. 0,64 * 2 = 1,28 - тут уже у нас единица получилась, в ответ 1, отбрасываем 1 и опять множим на 2, пока не будет ровно единица в ответе. 0,28 * 2 = 0,56 - в ответ 0 0,56 * 2 = 1,12 - в ответ 1 0,12 * 2 = 0,24 - в ответ 0 0,24 * 2 = 0,48 - в ответ 0 0,48 * 2 = 0,96 - в ответ 0 0,96*2 = 1,92 - в ответ 1 0,92*2 = 1,84 - в ответ 1 у тебя тут такое число, в котором ты бесконечно будешь умножать и у тебя не получится никогда ровно 1(либо получится, но не скоро), поэтому просто спроси у учителя, до скольки знаков тебе считать. я обычно до 5 считал всегда, но тут я тебе показал аж до 10. дробная часть получилась такой - 0010100011. теперь записываешь целую часть, что получил ранее и дробную, что вычислил сейчас. у тебя получается: 11110111,0010100011 ответ:   11110111,0010100011

//pascalabc.net 3.1 сборка 1239 uses system; uses system.collections; begin       var d : = datetime.today;       repeat               d : = d.adddays(1);       until d.dayofweek = dayofweek.sunday;             var sundays : = new dictionary< integer, integer> ();             repeat               if sundays.containskey(d.year) then                       sundays[d.year] += 1               else                       sundays.add(d.year, 1);                             d : = d.));       until d.year < = 1;             var max : = sundays.values.max;       sundays.where(x -> x.value = max).println; end.