Напишите программу, определющую что введенная строка- число или нет.(turbo pascal)

1

Ответы и объяснения

  • Участник Знаний
2014-04-08T12:28:27+00:00
S:string;
i, k:integer;
begin
readln(s);
for i:=1 to length(s) do
if (odr('s[i]')>47) and (ord('s[i]')<58) then k:=k+1;
if k=length(s) then writeln('число')
else writeln('нет');
readln;
end.