Мне кажется, задача не сводящая ответ к однозначным числам, ведь в задаче не сказано, что использовался весь алфавит, равно как и не сказано, что символы не могут повторяться.
если во втором тексте в 3.5 больше символов, чем в первом, при одинаковом инф. объеме, то число бит на каждый символ во втором тексте должен быть в 3.5 раза меньше, чем в первом тексте, чтобы размер файла текста не изменился: например 2 и 7 или 4 и 14 или 6 и 21... и т.д. соответственно, соовтетственно, мощность алфавита будет 4 и 128 или 32 и 16386 или 64 и 2097152.. и т.д. То, что в обоих текстах символов меньше 200 не говорит о том, что символы не могут повторяться, а значить определенно сказать, которая их вышеприведенного списка мощность алфавита будет верной нельзя.
Везде используется язык PascalABC.NET 3.2
1)
begin
print(readSeqInteger(3).Average)
end.
Пример ввода: 22 25 28
Пример вывода: 25
2)
begin
print(2*readreal <= readreal ? 'da' : 'net')
end.
Пример ввода: 7 13
Пример вывода: net
Пример ввода: 7 15
Пример вывода: da
3)
begin
print(readSeqInteger(12).Where(x ->Odd(x)).Average)
end.
Пример ввода:
1 2 3 4 5 6 7 8 9 10 11 12
Пример вывода:
6
Var
i,a:integer;
b,c:real;
Begin
read(a);
for i:=1 to a do begin
read(c);
b:=b+c;
end;
writeln(c/a);
end.
Ответ:
беспонятия, что это делает в информатике, но ладно
Решение:
28-12=16
16-10=6
Ответ:6
Объяснение:
1)12 книг никто не прочитал, поэтому спокойно их отнимаем и получаем 16
2)От 16 отнимаем общее кол-во прочитанных книг Г.Поттером, т.к. в кол-во прочитанных книг Поттером входит и те самые 6 книг прочитанных ими обоими.
Получаем 6
Program p1;
Var a,b,c,s,i:integer;
Begin
Write('Введите первый член прогрессии: ');
Readln(a);
Write('Введите разность чисел прогрессии: ');
Readln(b);
Write('Введите количество чисел прогрессии: ');
Readln(c);
for i:=1 to c do
Begin
s:=s+a;
a:=a+b;
End;
Writeln('Сумма членов прогрессии: ',s);
<span>End.</span>