Общее решение, позволяющее удалять из строк любой "мусор"
// PascalABC.Net 3.0, сборка 1066 procedure CheckString(var s:string; var n:integer); var i:integer; begin i:=Length(s); while i>0 do begin if not(s[i] in ['a'..'z']) then Delete(s,i,1); Dec(i) end; n:=Length(s) end;
var s1,s2:string; i,p,n1,n2:integer; begin Write('Введите первую строку: '); Readln(s1); CheckString(s1,n1); if n1=0 then Writeln('Введенная строка не содержит допустимых символов') else begin Write('Введите вторую строку: '); Readln(s2); CheckString(s2,n2); if n2=0 then Writeln('Введенная строка не содержит допустимых символов') else { теперь обе строки содержат только маленькие латинские буквы } if n1=n2 then begin for i:=1 to n1 do begin p:=Pos(s1[i],s2); if p=0 then Break else Delete(s2,p,1) end; if Length(s2)=0 then Writeln('Решение имеется') else Writeln('Решения нет') end else Writeln('Решения нет'); end end.
Тестовое решение: Введите первую строку: this is my own deal! Введите вторую строку: Тест: *is now=l2ead my sthi? Решение имеется
Также имеется современное решение, которому пока что в школах не учат: // PascalABC.Net 3.0, сборка 1066 begin var s1:=ReadString('Введите первую строку: ').Where(x->x in ['a'..'z']); if s1.Count=0 then Writeln('Введенная строка не содержит допустимых символов') else begin var s2:=ReadString('Введите вторую строку: ').Where(x->x in ['a'..'z']); if s2.Count=0 then Writeln('Введенная строка не содержит допустимых символов') else if s1.Except(s2).Count>0 then Writeln('Решения нет') else Writeln('Решение имеется') end end.
ответ: См. снимки экрана (код в объяснении)
Объяснение:
Первая программа:
from random import randint
def geo_mean(arr):
m = 1
for x in arr:
m *= x
res = m ** (1 / len(arr))
return res
def even_numb(arr):
sum = 0
for x in arr:
if not x % 2:
sum += x
return sum
res = m ** (1 / len(arr))
return res
arr = []
for i in range(50):
arr.append(randint(1, 10)) # Геренрирование случайных чисел
print(arr, '\n')
print("G =", geo_mean(arr)) # Среднее геометрическое
if even_numb(arr) < 240: # Сумма четных чисел
print("Сумма четных элементов равна", even_numb(arr))
Вторая программа:
def numb_words(s):
s = s.split()
l = len(s)
if l >= 3:
return True
def numb_letters(a):
return len(a) - a.count(' ')
a = input("Введите фразу: ")
if (numb_words(a)):
if numb_letters(a) < 10:
print("Хорошо")
else:
print("Не хорошо")