Пусть вводится последовательность символов длиной не более 4. если все вводимые символы — цифры, то выполните преобразование данной последовательности в целое число. паскаль.

Программа в pascalabc.net: 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. отметим, что в pascalabc.net в реальной жизни решение могло бы выглядеть так: 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.

B  это числа, которые вводятся с клавиатуры до тех пор, пока не будет введено отрицат. число а - это счетчик этих неотрицат. чисел (т.е. нулей и положит. чисел), формат команды inc (a) показывает, что происходит увеличение переменной а ровно на единицу.