Строка - Pascal ABC (14154)

Формулировка задачи:

Дана стартовая строка. Создать новую строку из всех цифр, входящих в стартовый строку, сохраняя порядок вхождения, или вывести сообщение об их отсутствии. Спасибо за внимание!

Решение задачи: «Строка»

Листинг программы

var s,s1:string;
    i:integer;
begin
 write('s = ');readln(s);s1:='';
 for i:=1 to length(s) do if s[i] in ['0'..'9'] then s1:=s1+s[i];
 if s1='' then writeln('цифр нет') else writeln('новая строка: ',s1)
end.

Объяснение кода листинга программы

var s,s1:string; — объявление переменных s и s1 типа string
i:integer; — объявление переменной i типа integer
write('s = ');readln(s);s1:=''; — вывод строки s = и чтение строки s, затем инициализация переменной s1 пустой строкой
for i:=1 to length(s) do if s[i] in ['0'..'9'] then s1:=s1+s[i]; — цикл for, который проходит по каждому символу строки s от 1 до ее длины. Если текущий символ является цифрой от 0 до 9, то он добавляется к переменной s1.
if s1='' then writeln('цифр нет') else writeln('новая строка: ',s1); — проверка, не пустая ли строка s1. Если она пуста, выводится сообщение цифр нет. В противном случае выводится сообщение новая строка:, с добавлением переменной s1 в качестве аргумента.