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.
Ответ дал: Гость
v=331+ 0,6*t
в зимний день- v=331+ 0.6*(-35)=310 м/с
в летний день- v=331+ 0.6*30=349 м/с
Ответ дал: Гость
решаем относительно a: a=(-6*x2-c)/x4=-6*x2/x4-c/x4.
Популярные вопросы