Идентификатор оператора в турбопаскале
Добавлено: 21 июн 2010, 11:53
Как написать программу ... начинается ли идентификатор оператора с целого числа?
Код: Выделить всё
var
S:string;
i:integer;
begin
S:='1werr';
for i:=1 to length(s) do
if s[1] in ['0'..'9'] then
writeln('yes') else writeln('no');
readln;