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

190

297

Посмотреть ответы 2

Ответы на вопрос:

Lamiyhideki69

Информатика

4,4(72 оценок)

Из слова "информатика" так много всего можно сделать! вот небольшая часть: 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.

камусик2004

Информатика

4,5(24 оценок)

Program kw_zh; uses crt; var a: integer; begin readln(a); if a< 6 then writeln(' это-молоко'); if a=6 thenwriteln(' это-сливки'); if a> 20 thenwriteln(' это-сметана'); end.