Напишите функцию, которая определяет есть ли в переданной ей строке один из этих символов №, #, %, !, $, @, &, * Функция должна вернуть значение типа Bool

МОЖЕТЕ ПИСАТ ОТВЕТ С ПРИМЕРОМ И ОБЯСНЕНИЕМ И ПО ШАГАМ

P.S : Если недостаточно хорошо объяснила или код недостаточно хорош - обращайся, порешаем.

Python Code:

def check(text):

   return True in [x in '№#%[email protected]&*' for x in str(text)]

   # Вернёт True если есть

   # Вернёт False если нет

# Проверка

print(check('Есть ли в этом тексте №#%[email protected]&*'))

print(check('А в этом?'))

Объяснение.

Если разбирать код, выглядит он как-то так:

def check(text):

# - Создание функции check()

   for x in str(text):

   # - Для x(допустим) будет присвоен по очереди каждый символ строки

       if x in '№#%[email protected]&*':

       # - Если x есть в перечисленных символах

           return True

           # - Возвращать True

   return False

   # - Если код не вернул True и дошёл до этой строки, возвращает False

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

1

a)

program pr;

var

s: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

writeln('введите заданный символ');

readln (c);

for i: =1 to length(s) do if s[i]=c then writeln ('в строке найден заданный символ');

readln;

end.

б)

program pr;

var

s,n: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

writeln(n);

readln;

end.

в)

program pr;

var

s,n,f: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

f: =copy(s,i+1,length(s)-i+1);

writeln(n);

writeln(f);

readln;

end.

program pr;

var s: string;

begin

s: ='касіу ясь канюшыну';

delete (s,7,3);

insert ('ясь',s,7);

writeln (s);

readln;

end.

3

а)

program pr;

var

s: string;

begin

s: ='реки горы и болота';

delete (s,6,5); {удаляем включая пробел}

writeln (s);

readln;

end.

б)

program pr;

var

s: string;

begin

s: ='реки горы и болота';

delete(s,13,6);

s: =s+'озера';

writeln (s);

readln;

end.