М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
kotovad444
kotovad444
15.02.2020 05:00 •  Информатика

Python Даны натуральные четырехзначные числа n, k (n, k<= 9999). Из чисел от n до k выбрать те, запись которых содержит ровно три одинаковых цифры. Например, числа 6766, 5444, 0006, 0060 содержат ровно три одинаковых цифры.

👇
Ответ:
polina1254
polina1254
15.02.2020

n=0

while n<+1000: # Пока n не станет четырехзначным числом алгоритм не запуститься.

n=n+1

while n<10000 and n>999: # Здесь прописанны условия для n

nlist=list(str(n)) # В данной строчке мы делем число на отдельные цифры

c=0 # Не обращай внимания это нужно для кода

v=len(nlist)

while c<v:

p=nlist.count(nlist[c]) # Здесь программа находит сколько одинаковых цифр в числе, и если их три, то пишет его

if p==3:

print(n)

c=c+1

n=n+1

Я согласен, что код возможно сильно сыроват и не совсем отвечает требованиям, но я только недавно начал изучать программирование, да и к тому же думаю, что вы на примере этого разберётесь, что делать дальше. Надеюсь я вам

4,8(30 оценок)
Открыть все ответы
Ответ:
verunyabogachk
verunyabogachk
15.02.2020
//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
uses System.Linq;
begin
    begin
        writeln('I');
        var n := ReadInteger('n=');
        Writeln((1 + 1 + Power(2, n - 1)) * n / 2);
    end;
    
    begin
        writeln;
        writeln('II');
        var n := ReadInteger('n=');
        Writeln(n mod 11 = 0 ? 'YES' : 'NO');
        
    end;
    
    begin
        writeln;
        writeln('III');
        var a := ReadArrInteger('Документы', ReadInteger('n=')).ToList;
        writeln;
        
        while a.Any() do
        begin
            write(a[0], ' ');
            a.RemoveAt(0);
            if not a.Any then break;
            
            write(a.Last, ' ');
            a.RemoveAt(a.Count - 1);
            if not a.Any then break;
            
            var n := 0;
            if a.Count > 1 then n := a.Count div 2 - 1;
            write(a[n], ' ');
            a.RemoveAt(n);
        end;
    end;
end.
4,8(45 оценок)
Ответ:
Написали бы язык программирования. Вот на java.
import java.io.BufferedReader;
import java.io.IOException;
import java.io.InputStreamReader;


public class znanie {
public static void main(String[] args) throws IOException {
BufferedReader reader=new BufferedReader(new InputStreamReader(System.in));
long A=Long.parseLong(reader.readLine());
long B=Long.parseLong(reader.readLine());
if((A<0)||(B<0)){
System.exit(0);
}
long sum=0;
for (long i = A; i <= B; i++) {
if((i%5==0)||(i%13==0)){
sum=sum+i;
}
}
System.out.println(sum);
}
}
4,4(33 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ