Две одинаковые цифры
Определите, верно ли, что в заданном четырехзначном числе ровно две одинаковые цифры.
Входные данные
На вход подается целое число k (1000≤k≤9999).
Выходные данные
Выведите 1 при положительном ответе на во задачи и любое другое целое число в противном случае.
Нельзя использовать функции, циклы, условные операторы
ответ: См. снимки экрана (код в объяснении)
Объяснение:
Первая программа:
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("Не хорошо")
const n=100;
var ar:array of array of integer;
ars:array of array of string;
i:integer;
procedure complection(var ar:array of array of integer;var ars:array of array of string);
var
i,j:integer;
begin;
for i:=1 to n do
begin;
for j:=1 to n do
begin;
ar[i,j]:=random(9);
str(ar[i,j],ars[i,j]);
end;
end;
end;
procedure burning(ars:array of array of string);
var
i,j:integer;
t:text;
begin;
assign(t,'text.txt');
rewrite(t);
for i:=1 to n do
begin;
writeln(t,' ');
for j:=1 to n do
write(t,ars[i,j],' ');
end;
end;
begin;
randomize;
setlength(ar,n+1);
setlength(ars,n+1);
for i:=1 to n do
begin;
setlength(ar[i],n+1);
setlength(ars[i],n+1);
end;
complection(ar,ars);
burning(ars);
end.