Саша увлекается каллиграфией. Ему нравится писать длинные слова (от 10 букв), чтобы можно было похвастаться красивым почерком. А ещё ему нравятся слова из чётного количества букв — ведь буквы можно написать симметрично, половину с наклоном влево, а половину — вправо. Дано слово. Выведи "ДА", если Саше оно нравится, или "НЕТ", если не нравится.
Ввод Вывод
аббревиатура ДА
турка НЕТ
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
namespace СиШарп
{
class Program
{
static void Main(string[] args)
{
Console.Write("a = ");
double a = double.Parse(Console.ReadLine());
Console.Write("b = ");
double b = double.Parse(Console.ReadLine());
Console.Write("c = ");
double c = double.Parse(Console.ReadLine());
if (a > b) a = b;
if (a > c) a = c;
Console.WriteLine("Min = {0}",a);
Console.ReadKey();
}
}
}
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('>');
var k:=s.Length mod 4;
if k>0 then s:=(4-k)*'0'+s;
var a:=s.Batch(4).Select(c->c.JoinIntoString(''));
foreach var t in a do
case t of
'0000':Write('0');
'0001':Write('1');
'0010':Write('2');
'0011':Write('3');
'0100':Write('4');
'0101':Write('5');
'0110':Write('6');
'0111':Write('7');
'1000':Write('8');
'1001':Write('9');
'1010':Write('A');
'1011':Write('B');
'1100':Write('C');
'1101':Write('D');
'1110':Write('E');
'1111':Write('F');
end;
Writeln
end.
Пример
> 110101111010101100010101110101101011011011
35EAC575ADB