СРОЧНО ЗАДАНИЕ НА ПАСКАЛЕ ТИПА STRING НА ПАСКАЛЕ
Дана строка. Если она представляет собой запись целого числа, то вывести 1, если вещественного (с дробной частью) — вывести 2; если строку нельзя преобразовать в число, то вывести 0. Считать, что дробная часть вещественного числа отделяется от его целой части десятичной точкой «.».
Дана строка. Если она представляет собой запись целого числа, то вывести 1, если вещественного (с дробной частью) — вывести 2; если строку нельзя преобразовать в число, то вывести 0. Считать, что дробная часть вещественного числа отделяется от его целой части десятичной точкой «.».
More Questions From This User See All
Answers & Comments
Ответ:
uses PT4;
var k,p:integer;
begin
Task('String19');
var s:= ReadString;
var f:=1;
for p:=1 to s.Length do begin
if(s[p] = '-') and (p <> 1) then begin f:=0; break; end;
if(s[p] = '.') then begin f:=2; inc(k); end;
if(k > 1) then begin f:=0; break; end;
if(s[p].IsDigit = false) and (s[p] <> '.') and (s[p] <> '-') then begin f:=0; break; end;
end;
print(f);
end.