Составить программу, в которой получить как можно больше слов, образованных из слова информатика. вывести на экран длину исходного слова. (программа на языке паскаль, использовать команды: length, copy, delete, insert, concat.) желательно сделать до завтрешнего дня, информатика завтра будет. заранее )

Ответы

Ответ дал: 112110

Из слова "информатика" так много всего можно сделать! вот небольшая часть: var s,s1: string; begin s: ='информатика'; //1 способ s1: =copy(s,3,5); writeln(s1,'-',length(s1)); //2 способ s1: =s; delete(s1,8,4); delete(s1,1,2); writeln(s1,'-',length(s1)); //3 s1: =s; delete(s1,1,5); delete(s1,3,2); insert(copy(s,5,1),s1,3); writeln(s1,'-',length(s1)); //4 s1: =copy(s,5,1)+copy(s,4,1)+copy(s,6,2)+copy(s,2,1)+copy(s,8,3); writeln(s1,'-',length(s1)); //5 s1: =concat(copy(s,3,3),copy(s,8,1)); writeln(s1,'-',length(s1)); end.

Спасибо

Ответ дал: Гость

в древней индии писали на камне и листьях пальмы. листья пальмы высушивали и нарезали длинными, узкими пластинами. надпись наносили тушью. если для записи использовалось более одного листа, то все написанные листы соединяли бечевкой, концы которой прикреплялись к хорошо обструганным деревянным дощечкам. пальмовые листы находились между двумя дощечками, как книга в переплете.

Ответ дал: Гость

на выходе 109

program p_1; var x,y: real; beginwriteln ('vvedite x'); readln(x); writeln ('vvedite y'); readln(y) ; if x=1 then y: =3; {на всякий случай, мало ли по клавише тне никак не можно ставить другие значения. эту строчку можно и }x: =y-x; y: =2*x; x: =2*y+x; y: =y+x/2; writeln(x,'',y); readln; end.