Расстояние между двумя словами определяется минимальным количеством основных операций с буквами слов, которое позволяет заменить первое слово на второе. основные операции с буквами слов следующие: • вставить один символ в слово, • удалить один символ из слова, • заменить один символ в слове другим символом. например, расстояние между словом «kitten» и словом «sitting» равно 3. основные необходимые операции: 1. kitten → sitten (замените в слове «kitten» букву «k» на букву «s»), 2. sitten → sittin (замените в слове «sitten» букву «e» на букву «i»), 3. sittin → sitting (вставьте в конце слова «sittin» букву «g» вопрос: каково минимальное расстояние между словами «length» и «french»?
Ответы
Var a: array[1..100] of integer; i, n: integer; p: integer; begin randomize; writeln('massiv: '); readln(n); for i : = 1 to n do a[i] : = random(10) - 5; writeln('исходный массив: '); for i : = 1 to n do write(a[i], ' '); p: =1; for i : = 1 to n do if (a[i]> 0) and (i mod 2=0) then p: =p*a[i]; writeln('произведение =',p); readln. end.
Function check(num : integer) : boolean; var sum : integer; begin while num > 0 do begin sum : = sum + num mod 10; num : = num div 10; end; result : = (sum > = 20) and (sum < = 30); end; var i, len : integer; sum : real; begin sum : = 0; len : = 0; for i : = 10000 to 99999 do begin if check (i) then begin len : = len + 1; sum : = sum + i; end; end; writeln('среднее арифметическое: ', sum / len); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Скиньте заотовки по информатика с заготовкой погода.doc
Автор: lighturist
Составить программу нахождения суммы и разности двух чисел вводимых с клавиатуры
Автор: Svetlana1335
Подготовьте правила, которые позволяют вашим ровесникам не допустить плагиат
Автор: vakhitov100961
