1.6
2. Нет
3. Сидишь, короче, подбираешь буковки под циферки. Под которые циферки подобрал буковку - закрашиваешь циферки. Если однозначно нельзя понять, какая тут буковка (может быть либо одна. либо другая) - тогда забиваешь, невыолнимо
Ну если я правильно понял то что тут написано то вот на pascal'e.. )
Var n,a,b,c:byte;
begin readln(n);
a:=n mod 10;
n:=n div 10;
b:=n mod 10;
n:=n div 10;
c:=n mod 10;
if (a=b) or (a=c) or(b=c) then writeln('да') else writeln('нет');
<span>end.</span>
Информация – это очень широкое понятие, в общем виде обозначающее сведения о чем-либо. Разные науки трактуют этот термин по-своему, зачастую очень сложно и туманно. Чтобы воспринять эти объяснения, стоит разобраться в сущности термина на более узком примере – понять, для чего нужна информация с точки зрения конкретного человека.
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
//Задание 12.а.
//Сумма первых n натуральных чисел
var s := 0;
var n := ReadlnInteger('введите n');
for var i := 1 to n do s := s + i;
Println(' Cумма первых', n, '=', s);
//Задание 12.г.
//Сумма всех двузначных
s := 0;
for var i := 10 to 99 do s := s + i;
Println(' Cумма всех двузначных', '=', s);
//Задание 13.
//Получаем 10 сл. чисел, выводим на экран
// и получаем среднее арифметическое
var a := ArrRandom(10, 1, 20);
println(a);
println('Среднее арифметическое ', a.Average)
end.