lex123 L lex123 Регистрация 16 Сен 2013 Сообщения 95 Репутация 0 Спасибо 0 Монет 0 12 Сен 2016 #1 1Cоставить программу определения кодов нажатых клавиш. Выход из программы-"пробел" составить программу на Паскале
1Cоставить программу определения кодов нажатых клавиш. Выход из программы-"пробел" составить программу на Паскале
viktor1986a V viktor1986a Регистрация 11 Фев 2013 Сообщения 83 Репутация 0 Спасибо 0 Монет 0 12 Сен 2016 #2 var c:char; begin repeat readln(c); if c= then break; writeln(ord(c)) until false end. удлинитель ответа Позитивный голос 0
var c:char; begin repeat readln(c); if c= then break; writeln(ord(c)) until false end. удлинитель ответа
TheDanil T TheDanil Регистрация 6 Сен 2013 Сообщения 88 Репутация 0 Спасибо 0 Монет 0 12 Сен 2016 #3 типа того использовать модуль ЦРТ; переменная С типа Символ; начало С := СчитатьСимвол; если Число (С) =Число (" ") то выйти иначе НаписатьСНовойСтроки (Число (С)); end. Позитивный голос 0
типа того использовать модуль ЦРТ; переменная С типа Символ; начало С := СчитатьСимвол; если Число (С) =Число (" ") то выйти иначе НаписатьСНовойСтроки (Число (С)); end.