Пусть вводится последовательность символов длиной не более 4. Если все вводимые символы — цифры, то выполните преобразование дан
Пусть вводится последовательность символов длиной не более 4. Если все вводимые символы — цифры, то выполните преобразование данной последовательности в целое число. Паскаль.
<u><em>Программа в PascalABC.Net:</em></u> const digits=['0','1','2','3','4','5','6','7','8','9']; var s:string; n,i,err:integer; isdigit:boolean; begin Write('Введите натуральное число (1-9999): '); Read(s); i:=1; isdigit:=True; n:=Length(s); repeat isdigit:=isdigit and (s[i] in digits); Inc(i) until (not isdigit) or (i>n); if isdigit then begin Val(s,n,err); Writeln('Введено корректное число ',n) end else Writeln('Число содержит нецифровой символ') end.
<em><u>Отметим, что в PascalABC.Net в реальной жизни решение могло бы выглядеть так:</u></em> var s:string; n,err:integer; begin Write('Введите натуральное число (1-9999): '); Read(s); Val(s,n,err); if err=0 then Writeln('Введено корректное число ',n) else Writeln('Число содержит нецифровой символ') end.