Сколько девочек 1100102 процент и 10102 мальчиков сколько учеников в классе. написать с решением?

Азбука Морзе

1) и .. н -. ф ..-. о --- р .-. м -- а .- т - и .. к -.- а .-

2) с ... к -.- о --- р .-. о --- к -.- а .- н -. и .. к -.- у ..- л .-.. ы -.--

3) с ... е . г --. о --- д -.. н -. я .-.- я .-.- с ... д -.. а .- ю .-- э ...---... к -.- з --.. а .- м -- е . н -.

Таблица двоичного кода

1) информатика 11001000 11101101 11110100 11101110 11110000 11101100 11100000 11110010 11001000 11101010 11100000

2) скоро каникулы 11110001 11101010 11101110 11110000 11101110 11101010 11100000 11101101 11001000 11101010 1111011 11101011 11111011

3) сегодня я сдаю экзамен 11110001 11100101 11100011 11101110 11100100 11101101 11111111 11111111 11110001 11100100 11100000 11111110 11111101 11101010 11100111 11100000 11101100 11100101 11101101

Program Markovsp1;
uses crt;
const
  eps=0.001;
var
  t,s:real;
  i:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  writeln('Программа вычисляет частичную сумму ряда ');
  writeln('  S=1+1/(2^2)+1/(3^2)+1/(4^2)+... ');
  writeln('Вычисление прекратится, когда модуль очередного слагаемого станет меньше 0,001');
используется цикл repeat');
  writeln();
  s:=0;
  i:=1;
  repeat
    t:=1/((i)*(i));
    s:=s+t;
    //writeln('i=',i,'  T=',t:0:6,'  S=',s:0:6);
    i:=i+1;
  until abs(t)<eps;
  writeln('s=',s:0:6,' (pi^2)/6=',(pi*pi)/6:0:6);
  writeln('Приближение к (pi^2)/6 равно ',s-(pi*pi)/6:0:6);
end.

Program Markovsp2;
uses crt;
const
  eps=0.001;
var
  t,s:real;
  i:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  writeln('Программа вычисляет частичную сумму ряда ');
  writeln('  S=1+1/(2^2)+1/(3^2)+1/(4^2)+... ');
  writeln('Вычисление прекратится, когда модуль очередного слагаемого станет меньше 0,001');
используется цикл while');
  writeln();
  s:=0;
  i:=1;
  t:=1;
  while t>eps do
    begin
      t:=1/(i*i);
      s:=s+t;
      //writeln('i=',i,'  T=',t:0:6,'  S=',s:0:6);
      i:=i+1;
     end;
  writeln('s=',s:0:6,' (pi^2)/6=',(pi*pi)/6:0:6);
  writeln('Приближение к (pi^2)/6 равно ',s-(pi*pi)/6:0:6);
end.