Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
ПомощьРегистрацияПоиск
case ch of 'q': ch:='q'; 'w': ch:='w'; 'e': ch:='e'; 'r': ch:='r'; 't': ch:='t'; 'y': ch:='y'; 'u': ch:='u'; 'i': ch:='i'; 'o': ch:='o'; 'p': ch:='p'; 'a': ch:='a'; 's': ch:='s'; 'd': ch:='d'; 'f': ch:='f'; 'g': ch:='g'; 'h': ch:='h'; 'j': ch:='j'; 'k': ch:='k'; 'l': ch:='l'; 'z': ch:='z'; 'x': ch:='x'; 'c': ch:='c'; 'v': ch:='v'; 'b': ch:='b'; 'n': ch:='n'; 'm': ch:='m'; end;
function IntToStr(i: Longint): String;var s: String;begin Str(i, s) ; IntToStr := s;end;