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

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

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

Код к задаче: «Строка - Pascal ABC (14154)»

textual
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.

8   голосов, оценка 3.750 из 5


СОХРАНИТЬ ССЫЛКУ