<span>Сколько папок окажутся пустыми,если из указанных папок удалить все файлы с расширением doc ?</span>
<span>BIOS (Basic Input/Output System). Эта программа не обладает всей функциональностью операционной системы, но её достаточно для того, чтобы загрузить другую программу, которая будет загружать операционную систему.</span>
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var a:=ArrRandom(ReadInteger('n='),1,50);
a.Println;
Writeln('Количество чисел 10 равно ',a.Where(x->x=10).Count)
end.
<u><em>Тестовое решение:</em></u>
n= 20
27 7 12 44 27 49 11 8 45 12 8 50 39 10 1 37 37 25 27 11
Количество чисел 10 равно 1
Прикрепил Exсel таблицу, решение a на 1 листе, б - на 2, в - на 3
При этом шифровании надо поменять местами все буквы из пар, например. вместо Р написать А, а вместо А – Р, и так далее. Остальные буквы остаются без изменений. Проделав это, получим:
а) <span>Рибонуклеиновая кислота
б) </span><span>Телефонный разговор</span>