Напишіть програму, яка виводить назви введених чисел. Користувач вводить ціле число. Якщо це число або 1 або 2 або 3, то виводиться повідомлення - назва числа, відповідно, One, Two, Three. В усіх інших випадках виводиться слово Unknown
Вхідні дані:
20
1
2
3
Вихідні дані:
Unknown
One
Two
Three
// PascalABC.NET
begin
// 1
var s1 := ReadlnString.Replace(' ','');
s1.Println;
// 2
var m := ReadlnString.MatchValues('[AaBb]');
if m.Count > 0 then
begin
var n := m.Count(c -> c.ToLower = 'a') -
m.Count(c -> c.ToLower = 'b');
case Sign(n) of
-1: Println('В строке больше символов B');
0: Println('В строке поровну символов A и B');
1: Println('В строке больше символов A');
end
end
else
Println('В строке нет символов A или B');
// 3
var s2 := 'Казнить, нельзя помиловать';
var i := Pos(',', s2);
Delete(s2,i,1);
i := Pos('я', s2);
Insert(',', s2, i + 1);
s2.Print
end.