СРОЧНО ЗАДАНИЕ НА ПАСКАЛЕ ТИПА STRING НА ПАСКАЛЕ
Дана строка. Если она представляет собой запись целого числа, то вывести 1, если вещественного (с дробной частью) — вывести 2; если строку нельзя преобразовать в число, то вывести 0. Считать, что дробная часть вещественного числа отделяется от его целой части десятичной точкой «.».
Ответы
Ответ дал:
1
Ответ:
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.
Вас заинтересует
1 год назад
1 год назад
1 год назад
7 лет назад
8 лет назад
8 лет назад