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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
