Составьте программу отгадывания латинской строчной буквы. Буду презнательна
Составьте программу отгадывания латинской строчной буквы.
Буду презнательна
Гость
Ответ(ы) на вопрос:
Гостьuses crt;
var c:char;
crand:integer;
begin
randomize;
crand:=random(122,97);
read(c);
if ord(c)=crand then
writeln('Вы угадали!')
else
writeln('Вы не угадали. Правильный ответ "',chr(crand),'"');
end.
Не нашли ответ?
Похожие вопросы