Задание:
Составьте программу отгадывания латинской строчной буквы. Буду презнательна
Решение:
uses crt; var c: char; crand: integer; beginrandomize; crand: =random (122,97); read (c); if ord (c)=crand thenwriteln ('Вы угадали! ') elsewriteln ('Вы не угадали. Правильный ответ "',chr (crand) ,'"'); end.
Знаете другой ответ?