Содержание
Указатель
Поиск
Часть первая 1 задание файлы документов,2 файловые вирусы,3 макровирусов,4 жёсткий диск,5 неопастные,безвредные,опасные,очень опасные
Почта, телеграф, телефон, семафорная азбука, сигнальные огни
===== PascalABC.NET =====
function sogl(c: char) :=
not (c.ToUpper in ('АЕЁИОУЫЭЮЯ'));
// проверка функции
begin
var s := 'ТестируемРусскийАлфавит';
foreach var c in s do
Print(sogl(c));
end.
На самом деле все это будет правильно работать лишь если функции давать исключительно русские буквы.