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

pashafil5 pashafil5    3   29.05.2019 13:50    1

Ответы
Змей19 Змей19  28.06.2020 16:20
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика