Типо того:
| Код |
var s1,s2,s_chislo:string;
i,temp,code:integer;
begin
writeln('Введите первую строку');
readln(s1);
writeln('Введите вторую строку');
readln(s2);
s1:=s1+s2; //Все в кучу собираем
s2:=''; s_chislo:='';
for i:=1 to length(s1) do
begin
Val(s1[i],temp,code);
if code=0 then s_chislo:=s_chislo+s1[i]
else s2:=s2+s1[i];
end;
Writeln('Строка с буквами=',s2);
Writeln('Строка с числами=',s_chislo);
end.
|
Val (st, a, code) – преобразует строку, содержащую цифры, в число вещественное или целое: st – строка; a – числовая переменная; code – переменная целого типа, по значению которой можно определить, успешно или нет прошёл перевод. Если перевод символов в число прошёл успешно, значение переменной code равно 0.
uses crt вперед допиши еще!
|
