Решить в паскале! вывести на экран все цифры из заданной строки.

leonovapodkina leonovapodkina    1   21.05.2019 02:30    0

Ответы
ObolenskayaDiana ObolenskayaDiana  01.10.2020 01:56

var array  s,s1:string;

i:byte;

begin

write('Введите строку'); readln(s);

s1:=' ';

for i:=1 to length(s) do

if s[i] in ['0'..'9'] then s1:=s1+s[i]

else

begin

if s1<>' ' then writeln (s1);

s1:=' ';

end;

if s1<>' ' then writeln (s1);

readln;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика