пятница, 19 июня 2009 г.

вляется ли этот текст десятичной записью целого числа

Задан текст. Выяснить, является ли этот текст десятичной записью целого числа.

что является по сути десятичной записью числа?
это набор символов [0-9] и всё....

var
s: string;
i, j: integer;
f: boolean;

begin
s:='122345.33'; {проверьте еще '11133'}
f:=true;
for i:=1 to length(s) do begin
if (ord(s[i]) < ord('0')) or (ord(s[i]) > ord('9')) then begin
f:=false;
break;
end;
end;

write('is ', s, ' integer? ');
if f then writeln('yes') else writeln('no');

end.


рабочие исходники можно скачать тут

Комментариев нет:

Отправить комментарий