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.
Ответ дал: Гость
автоматизация, легкость в использовании, меньше затраты времени на обработку
Ответ дал: Гость
самая крупная не летающая птица- страус эму
Ответ дал: Гость
скрипка флейта альта кларнет габое труба
браун 0 0 1 1 0 0
смит 0 1 0 0 1 0
вессон 1 0 0 0 0 1
из последнего условия следует что б. играет скрипке, флейте, альте или кларнете.
из 4ого условия следует что с. не альтеист и не трубач
из 3его условия следует что б. не скрипач и не играющий на флейте
Популярные вопросы