25.04.2009, 12:24
|
|
Постоянный
Регистрация: 09.11.2006
Сообщений: 639
С нами:
10265091
Репутация:
541
|
|
держи , написал с проверкой 
PHP код:
program digit;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
str: string;
i: Integer;
digits: set of '0'..'9';
begin
try
digits := ['0'..'9'];
Readln(str);
for i := 1 to Length(str) -1 do
begin
if str[i] in digits then
begin
end
else
begin
Writeln('Error : ' + str[i]);
Readln;
Halt;
end;
end;
Writeln(Length(str));
readln;
{ TODO -oUser -cConsole Main : Insert code here }
except
on E: Exception do
Writeln(E.Classname, ': ', E.Message);
end;
end.
|
|
|