За 4 3составте программу ,которая определяет ,какое из 2-х слов более длиннее и выводит это слово 4,с клавиатуры вводят 2 слова .составте программу, которая выводит на экран слова в обратном порядке 5,с клавиатуры вводят слово .составте программу которая выводит количество символов в нем 6,составте программу ,которая определяет какое из 2-х введенных с клавиатуры слов короче ,и выводит это слово

163

377

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

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

Gamer2205395

Информатика

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

Со строками можно работать так же, как и с элементами массива, т. е. мы можем обратиться к любому символу строки, как к элементу, можем сравнивать строки, складывать и вычитать( последние две операции здесь нам не понадобятся) №3. program ex3; var a,b: string; k,n,i: integer; {ввод исходных данных} begin writeln('введите первое слово'); readln(a); {компьютер читает введенное число a} writeln('введите второе слово'); readln(b); {компьютер читает введенное число b} k: =0; {обнуляем переменные k и n, это будут счетчики в данной программе} n: =0; for i: =1 to length(a) do { проверяем символы от первого до конца строки} k: =k+1; {если в строке находится символ, то переменная k увеличивается на 1} for i: =1 to length(b) do {аналогично} n: =n+1; if k> n {проверяем, если количество символов в первой строке больше, чем количество символов во второй, то выводим a(первое слово), иначе b (второе слово)} then writeln(a) else writeln(b); end.№4program ex4; var a,b: string; i: integer; begin writeln('введите первое слово'); readln(a); writeln('введите второе слово'); readln(b); k: =0; n: =0; for i: = length(a) downto 1 do {просматриваю строку в обратном порядке и вывожу каждый символ на экран} write(a[i]); writeln; for i: =length(b) downto 1 do {просматриваю строку в обратном порядке и вывожу каждый символ на экран} write(b[i]); end. №5program ex3; var a: string; k,n,i: integer; {ввод исходных данных} begin writeln('введите слово'); readln(a); {компьютер читает введенное число a} k: =0; {обнуляем переменные k , это будут счетчики в данной программе} for i: =1 to length(a) do { проверяем символы от первого до конца строки} k: =k+1; {если в строке находится символ, то переменная k увеличивается на 1} writeln(k); end. №6. аналогичная №3, за исключением условия в конце. program ex3; var a,b: string; k,n,i: integer; {ввод исходных данных} begin writeln('введите первое слово'); readln(a); {компьютер читает введенное число a} writeln('введите второе слово'); readln(b); {компьютер читает введенное число b} k: =0; {обнуляем переменные k и n, это будут счетчики в данной программе} n: =0; for i: =1 to length(a) do { проверяем символы от первого до конца строки} k: =k+1; {если в строке находится символ, то переменная k увеличивается на 1} for i: =1 to length(b) do {аналогично} n: =n+1; if k< n {проверяем, если количество символов в первой строке меньше, чем количество символов во второй, то выводим a(первое слово), иначе b (второе слово)} then writeln(a) else writeln(b); end.