№ Буква Имя
1 Аа а
2 Бб бэ
3 Вв вэ
4 Гг гэ
5 Дд дэ
6 Ее е
7 Ёё ё
8 Жж жэ
9 Зз зэ
10 Ии и
11 Йй и краткое
12 Кк ка
13 Лл эль (или эл)
14 Мм эм
15 Нн эн
16 Оо о
17 Пп пэ
18 Рр эр
19 Сс эс
20 Тт тэ
21 Уу у
22 Фф эф
23 Хх ха
24 Цц цэ
25 Чч че
26 Шш ша
27 Щщ ща
28 Ъъ твёрдый знак
29 Ыы ы
30 Ьь мягкий знак
31 Ээ э (э оборотное)
32 Юю ю
33 Яя
подбирай. У тебя всё получится
Так как каждая буква в слове заменена её порядковым номером в алфавите, а зашифрованная запись состоит только из цифр “1” и “2”, то в слове могут встречаться только буквы “а”, “б”, “й”, “к”, “у” и “ф”. Эти буквы имеют порядковые номера 1, 2, 11, 12, 21 и 22 соответственно.
<span>Первые три цифры “222”. Слово не может начинаться с “ббб”, “бф” и “фб”. Значит, первая буква – “ф”, а вторая – “у” (номера 22 и 21 соответственно) . Следующие две двойки - это буква “ф”, так как нет в русском языке слов, начинающихся с “фубб” или с “фубу”. Следующая буква – “а”, так как после согласной не может стоять “й”. Рассуждая далее, получим слово “фуфайка”.</span>
Var
a,b:real;
Begin
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
WriteLn('S = ',a*b);
End.
Примерно 19 секудн.
128000 бит=16000 байт
300 Кбайт=307200 байт
307200:16000
<em>// PascalABC.NET 3.2, сборка 1399 от 08.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadReal('Площадь решета равна');
var a:=ReadArrReal('Введите диаметры клубней:',10);
var d:=sqrt(4*s/pi);
var b:=a.Where(x->x<d);
var n:=b.Count;
if n>0 then begin
Write('Пройдут клубни диаметром '); b.Print;
Writeln(' - всего ',n,' шт.')
end
else Writeln('Ни один клубень не пройдет')
end.
<u>Пример</u>
Площадь решета равна 45
Введите диаметры клубней: 8.6 7.1 9 10.2 6.4 5 6 8.2 6.6 7
Пройдут клубни диаметром 7.1 6.4 5 6 6.6 7 - всего 6 шт.