1: набрать и протестировать на компьютере программу, которая подсчитывает количество цифр в исходной строке и печатает все, кроме пробелов, знаков операций и знаков препинания. текст программы: program demoset; uses crt; var s: string; i,k: integer; begin k: =0; clrscr; write('введите произвольную строку => '); readln(s); writeln('строка результат'); for i: =1 to length(s) do begin if not(s[i] in [' ',',','.',': ','; ','/','+','-','*'] )then begin if s[i] in ['0'..'9'] then inc(k); write(s[i]) end; end; writeln; writeln('количество цифр в строке ',k); readln end. 2: видоизменить программу так чтобы она подсчитывала количество знаков препинания в исходной строке и печатала все, кроме цифр.