Дано натуральное число напишите программу которая определяет состоит ли указанное число
Перейти к содержимому

Дано натуральное число напишите программу которая определяет состоит ли указанное число

Программирование на Python. Создайте пж программу простую, с циклом while.
Одинаковые цифры

Дано натуральное число. Напишите программу, которая определяет, состоит ли указанное число из одинаковых цифр.

Формат входных данных
На вход программе подается одно натуральное число.

Формат выходных данных
Программа должна вывести «YES» если число состоит из одинаковых цифр и «NO» в противном случае.

timkafey

KnowsUser1

Ответ:

#1 «Как надо» (С While)

def IsNumberSingledigit(number):

lastDigit = number % 10

temp = lastDigit

flag = True

while number > 0:

lastDigit = number % 10

if not temp == lastDigit: flag = False

temp = lastDigit

number //= 10

return flag

def main():

print(IsNumberSingledigit(int(input())))

if __name__ == «__main__»:

main()

#2 Как стоило бы в подобном случае

number = int(input()) #Представляем число как строку

print(True if (len(set(str(number))) == 1) else False)

P.S Приведение сначала к числу а потом обратно к строке нужно для уверенности, что мы работаем именно с числом, а не с «аааааа».

Нужно помочь с решением задачи (python)

Дано натуральное число. Напишите программу, которая определяет, состоит ли указанное число из одинаковых цифр
Формат входных данных
На вход программе подается одно натуральное число.

Формат выходных данных
Программа должна вывести «YES» если число состоит из одинаковых цифр и «NO» в противном случае.

Sample Input 1:
11111
Sample Output 1:
YES

Sample Input 2:
11112111
Sample Output 2:
NO

n=int(input(«Число:»))
f=’YES’
c=n%10
while n>c:
___n//=10
___if n%10!=c: f=’NO’;break
print(f)

Язык PYTHON. Напишите программу, которая определяет, верно ли, что введённое число состоит из одинаковых цифр (Например 222)

var
a: array[1..12] of real;
x: integer;
begin
Writeln(‘Начальный массив:’);
for x:=1 to 12 do
begin
a[x]:=5*x-2;
writeln(‘a[‘, x, ‘]=’, a[x]);
end;
Writeln(‘Увеличим каждый элемент массива на 8,125:’);
for x:=1 to 12 do
begin
a[x]:=a[x]+8.125;
writeln(‘a[‘, x, ‘]=’, a[x]);
end;
end.

write(‘введите радиус окружности r=’);

writeln(‘диаметр равен d=2r=’, d);

<u>PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>

begin
var a:=ArrRandom(15,-10,10); a.Println;
var M:=ReadInteger(‘M=’);
a.IndexesOf(t->t>=M).Select(t->t+1).Println
end.

<u>Пример</u>
-5 2 1 5 -1 -9 -10 -2 -7 -6 2 -8 -9 -5 8
M= 3
4 15

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *