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