Var a, d, c, t: integer; begin readln(a, d, c); if a < d then begin t : = a; a : = d; d : = t; end; if a < c then begin t : = a; a : = c; c : = t; end; if d < c then begin t : = d; d : = c; c : = t; end; writeln(a, ' ', d, ' ', c); end.
Спасибо
Ответ дал: Гость
в древней индии писали на камне и листьях пальмы. листья пальмы высушивали и нарезали длинными, узкими пластинами. надпись наносили тушью. если для записи использовалось более одного листа, то все написанные листы соединяли бечевкой, концы которой прикреплялись к хорошо обструганным деревянным дощечкам. пальмовые листы находились между двумя дощечками, как книга в переплете.
Ответ дал: Гость
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.
Популярные вопросы