hundert Posted December 27, 2009 Report Share Posted December 27, 2009 Задание: Дана строка. С помощью очереди вывести в порядке следования сначала цифры, затем знаки припенания, и в конце все остальные символы строки Решение: Vars:string; iord; begin writeln('vesti stroka'); readln ; for i:=1 to length do if s in(0..9) then write ; for i:=1 to length do if s in(тут знаки препинания типа перечеслить) then write for i:=1 to length do if not in ['0'..'9', тут тоже знаки] then () close end. что не так подскажите? Link to comment Share on other sites More sharing options...
Тролль Posted December 27, 2009 Report Share Posted December 27, 2009 Проще перечислить, что так. Ошибок даже навскидку, больше десятка. Link to comment Share on other sites More sharing options...
hundert Posted December 27, 2009 Author Report Share Posted December 27, 2009 Эм,а написать можешь как правильно будет? Link to comment Share on other sites More sharing options...
Тролль Posted December 27, 2009 Report Share Posted December 27, 2009 Непонятно, причем тут очередь. Link to comment Share on other sites More sharing options...
hundert Posted December 27, 2009 Author Report Share Posted December 27, 2009 ну а как тогда.. :) Link to comment Share on other sites More sharing options...
Тролль Posted December 27, 2009 Report Share Posted December 27, 2009 var s:string; i:integer; begin readln(s); for i:=1 to length(s) do if s[i]in['0'..'9'] then write(s[i]); for i:=1 to length(s) do if s[i]in['!'..'/',':'..'?'] then write(s[i]); for i:=1 to length(s) do if not(s[i]in['0'..'9','!'..'/',':'..'?'])then write(s[i]);writeln; readlnend. Link to comment Share on other sites More sharing options...
hundert Posted December 27, 2009 Author Report Share Posted December 27, 2009 Спасибо=) Link to comment Share on other sites More sharing options...
Recommended Posts