begin readln(st);//вводим строку write('Числа имеющиеся в тексте: '); for i:=1 to length(st) do if (st[i] in ['1'..'9']) then write(st[i]); //если текущий символ принадлежит ко множеству чисел -то выводим его end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
