если вводится не буква и цифра выводится сообщение Опции

[dct]

как вывести сообщение о том что была введина цифра или буква уже повторялась????

[dct]

Код

repeat
 ch := upchar(readkey);
 if ch in ['0'..'9'] then
 begin
  x:=0;
  y:=15;  
  gotoxy(x,y);    
  writeln ('введена цифра');
 end  else if not (ch in charSet) then
 begin
  x:=0
  y:=14
  gotoxy (x,y);
  writeln('не буква, или эта буква уже была'
 end;
until {...}

Код я исправил.... условие только добавь...

Сообщение отредактировано: Oleg_Z - 3.01.2005 17:35