Цитата:
Сообщение от firm.nice
Программа вводит произвольную последовательность символов («*» - признак конца ввода)
При вводе раскрасить цифры – зелёным,
маленькие латинские – желтым,
«!» «?» - красным,
а остальные символы сиреневым(5-й цвет).
|
И какие проблемы? Пожалуйста:
Код:
Uses CRT;
Var
C:Char;
Begin
ClrScr;
Repeat
C:=Readkey;
If Ord(C) in [48..57] then TextColor(2) else
If Ord(C) in [97..122] then TextColor(6) else
If (C='!') or (C='?') then TextColor(4) else
TextColor(5);
Write(C);
Until C='*';
NormVideo;
End.