Составьте программу отгадывания латинской строчной буквы.
Буду презнательна

1

Ответы и объяснения

2013-12-27T15:23:10+04:00
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.