===== PascalABC.NET =====
function sogl(c: char) :=
not (c.ToUpper in ('АЕЁИОУЫЭЮЯ'));
// проверка функции
begin
var s := 'ТестируемРусскийАлфавит';
foreach var c in s do
Print(sogl(c));
end.
На самом деле все это будет правильно работать лишь если функции давать исключительно русские буквы.
4: 4 Кб = 4096 б
4096 б / 4096 символов = 1 б - на символ
алфавит содержит 2^8 = 256 символов
10: 375 б :500 = 6 бит на символ
мощность = 2^6 = 64 символа
Я так понимаю, мах слово - выводить на экран вместе с числом.
var a,b,c:integer;
begin
readln(a,b,c);
if (a>b) and (a>c) then write('max = ', a)
else
if (b>a) and (b>c) then write('max = ', b)
else write('max = ', c);
end.
101101110= 556 (Р=8), 10100100= 244 (Р=8) .... Вроде так