===== PascalABC.NET =====
function sogl(c: char) :=
not (c.ToUpper in ('АЕЁИОУЫЭЮЯ'));
// проверка функции
begin
var s := 'ТестируемРусскийАлфавит';
foreach var c in s do
Print(sogl(c));
end.
На самом деле все это будет правильно работать лишь если функции давать исключительно русские буквы.
3. <span>Основанием
----------------------------</span>
Касаються : Закрити Обрати Розгорнути Перейти Клацнути Переглянути Збільшити Зменшити Ввести Двічі Клацнути Натиснути Встановити Опрацювати і передати
С7 - 307
111 - 421
А5 - 245
АА - 252
Соответственно вариант А
Program jkfj;
var
a,b:integer;
begin
writeln ('Введите 1-ое число');
read (a);
writeln ('Введите 2-ое число');
read (b);
if a<b then write ('Большее b')
else write ('Большее a');
if a=b then write ('a и b равны')
end.
Сакура, могут быть ошибки в знаках, но в целом вроде хорошо!