[Паскаль]

как написать генератор русских букв?

[lmikle]

Код:

var
  C : Char;
begin
  C := Chr(Random(Ord('Я') - Ord('А')) + Ord('А'));

[Паскаль]

спасибо за ответ

[Паскаль]

а генератор английских букв?

[PhoeniX]

А подумать и заменить 2 буквы в трёх местах?