: Выполнить перевод правильных дробей из десятичной системы счисления в двоичную, восьмеричную и шестнадцатеричную системы счисления:

1) 0,2510 2) 0,12510 3) 0,3410 4) 0,3710 5) 0,3910 6) 0,4110 7) 0,4410 8) 0,4910

9) 0,5210 10) 0,5610 11) 0,5910 12) 0,6110 13) 0,6210 14) 0,6310 15) 0,6810 16) 0,6910

17) 0,7310 18) 0,7610 19) 0,7910 20) 0,8210 21) 0,8410 22) 0,8510 23) 0,8610 24) 0,8910

25) 0,9110 26) 0,9310 27) 0,9410 28) 0,9510 29) 0,9610 30) 0,9910

//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.AddDays((-7));
    until d.Year <= 1;
    
    var max := Sundays.Values.Max;
    Sundays.Where(x -> x.Value = max).Println;
end.

Задание 1)

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var fam:=ReadlnString('Фамилия:');
  var nam:=ReadlnString('имя:');
  var otch:=ReadlnString('отчество:');
  var fio:=fam+' '+nam+' '+otch;
  Writeln(fio,', длина текста- ',fio.Length)
end.

Тестовое решение
Фамилия: Иванов
имя: Сергей
отчество: Петрович
Иванов Сергей Петрович, длина текста- 22

Задание 3)

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var w:='ИНТЕГРАЛ';
  Writeln(w[5]+w[7]+w[2:5]+w[8]+w[1]);
  Writeln(w[6]+w[4]+w[2:4]+w[5:3:-1]+w[2]);
  Writeln(w[3]+w[1]+w[5:7]);
  Writeln(w[7]+w[5:3:-1]+w[2:4]);
  Writeln(w[6:]+w[8]+w[1]);
  Writeln(w[1]+w[5:8]);
  Writeln(w[2::-1]+w[3]+w[6:8]+w[3])
end.

Решение:
ГАНТЕЛИ
РЕНТГЕН
ТИГР
АГЕНТ
РАЛЛИ
ИГРА
НИТРАТ