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

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

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


textual

Код к задаче: «Строка - 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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник
Похожие ответы