Пуск-Панель управления-Мышь- Свойства я думаю так
Var
k : integer;
begin
read (k);
if k mod 2 = 0 then
writeln ((k div 2 - 1) mod 10)
else writeln ((k div 2 - 1) div 10 + 1);
end.
вроде так
Вообще единого способа нету, если у вас не получилось просто вывести значит у вас Виндовс, вобщем в этом и заковырка, ОС использует свою кодировку, а не привычную <span>utf-8. Это переделанный пример из интернета, сейчас подумаю над примерами попроще для реализации</span>
#include <iostream>
#include <io.h>
#include <fcntl.h>
int main()
{
_setmode(_fileno(stdout), _O_U16TEXT);
std::wcout << L"Testing unicode -- English -- Ελληνικά -- Español." <<
std::endl;
system("pause");
return 0;
}