На обрывках бумаги были обнаружены записанные фрагменты IP-адреса компьютера. Восстановите IP-адрес. (запишите правильный адрес, используя только цифры и точки) 3.212 21 2.12 .42
Var fullstr,s,s_int,s_rl,s_str: string; int: integer; rl: real; space,err: integer; begin writeln('String:'); readln(fullstr);
while fullstr[1] = ' ' do delete(fullstr,1,1); while fullstr[length(fullstr)] = ' ' do delete(fullstr,length(fullstr),1); while pos(' ',fullstr) <> 0 do delete(fullstr,pos(' ',fullstr),1);
s_int := ''; s_rl := ''; s_str := ''; while fullstr <> '' do begin space := pos(' ',fullstr); if space = 0 then space := length(fullstr) + 1; s := copy(fullstr,1,space-1); val(s,int,err); if err = 0 then s_int := s_int + s + ' ' else begin val(s,rl,err); if err = 0 then s_rl := s_rl + s + ' ' else s_str := s_str + s + ' '; end; delete(fullstr,1,space); end;
3.212.21.2.121.42