var s : string; symb : char; i : longint; begin readln(s); readln(symb); if pos(symb,s)=0 then writeln('в этом слове нет этого символа') else begin i: =0; while pos(symb,s)< > 0 do begin write(pos(symb,s)+i,' '); i: =i+1; delete(s,pos(symb,s),1); end; end; writeln; writeln(i); end.
Ответ дал: Гость
если выполнить для стандартного алфавита с ё, й итд
но я думаю делалось под алфавит без "ё" и "й" возможно в нем получится "винчестер"
Ответ дал: Гость
я так понимаю нужно нарисовать рисунки рыб, карасей и различных животных. множества нужно перекрестить(множество рыб и хищ. животных), так как рыба тоже может быть хищником
Ответ дал: Гость
каждый цвет может иметь 4 значения 2^2
если базовых цвета 3(rgb) то всего получится 4*4*4=64 цвета
Популярные вопросы