В феврале 1946 года был создан первый компьютер.
Var
a:array[1..12]of integer;
m, n:integer;
Begin
a[1]:=31;a[7]:=31;
a[2]:=28;a[8]:=31;
a[3]:=31;a[9]:=30;
a[4]:=30;a[10]:=31;
a[5]:=31;a[11]:=30;
a[6]:=30;a[12]:=31;
Write('Введите номер месяца -> ');
Readln(m);
Write('Год високосный(1 - да || 0 - нет)?');
Readln(n);
if (m = 2) then Writeln(a[m] + n) else
Writeln(a[m]);
end.
1) 3 яблока;2) 4 яблока;3) 5 яблок;4) n+1 яблок.Объяснение: если доставать яблок столько же, сколько и сортов, то они могут быть все разных сортов.<span>Если же достfвать яблок на одно больше, чем количество сортов, и даже если все кроме последнего разных сортов, то последнее обязательно будет одного и того же сорта с каким-нибудь из остальных.</span>
Смотрим по таблице К для b=24. Поэтому К=16777216. Ответ:16777216 цветов
Begin
var s := readstring();
if (s.Where(x -> x = 'а').Count > s.Where(x -> x = 'о').Count)
then write('Букв "а" больше')
else write('Букв "о" больше');
end.