На вход программе подается натуральное число n, затем n строк, затем число k — количество поисковых за затем k строк — поисковые
за Напишите программу, которая выводит все введенные строки, в которых встречаются все поисковые за Формат входных данных
На вход программе подаются натуральное число n — количество строк, затем сами строки в указанном количестве, затем число k, затем сами
поисковые за Формат выходных данных
Программа должна вывести все введенные строки, в которых встречаются все поисковые за Примечание. Поиск не должен быть чувствителен к регистру символов.
Пример входных данных:
5
Membrane-potential dynamics mediate bacterial electrical signaling at both intra- and intercellular levels.
This equation, derived from the electromagnetic theory (24), expresses that the maximum change in the membrane potential of a cell caused by an electrical stimulus is
proportional to the applied field strength.
In this study, we utilized an exogenous electrical stimulus to in- vestigate the impact of proliferative capacity on electrical signal response.
To investigate the potential impacts of proliferative capacity on electrical signaling responses, direct observation of cell proliferation, membrane potential, and its response to
electrical stimuli at the individual-cell level is needed.
To test this hypothesis, the same experiment was conducted with a mutant strain lacking the gene encoding the YugO potassium channel.
2
membrane
potential
Вывод программы:
Membrane-potential dynamics mediate bacterial electrical signaling at both intra- and intercellular levels.
This equation, derived from the electromagnetic theory (24), expresses that the maximum change in the membrane potential of a cell caused by an electrical stimulus is
proportional to the applied field strength.
Const N = 5;
Var a: Array [1..N] of LongInt;
i: Integer;
Function MinDigit(number: LongInt): Integer;
Var digits: Array of Integer;
num, min, i: Integer;
Begin
num := number;
While num <> 0 Do
Begin
num := num Div 10;
i := i + 1;
End;
SetLength(digits, i);
num := number;
For i := 0 To Length(digits) - 1 Do
Begin
digits[i] := num Mod 10;
num := num Div 10;End;
For i := 0 To Length(digits) - 1 Do
If digits[i] < digits[min] Then
min := i; Result := digits[min];
End;
Begin
WriteLn('Введите ', N, ' целых чисел через пробел');
For i := 1 To N Do
Read(a[i]);
For i := 1 To N Do
Write(MinDigit(a[i]), ' ');
End.