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

Заполнить список из 10 элементов случайными числами в интервале ( 10 , 12) и найти длину самой длинной последовательности стоящих рядом одинаковых элементов . язык программирования питон .

👇
Ответ:
100profan
100profan
07.06.2020
5000
4,6(84 оценок)
Открыть все ответы
Ответ:
kisaev16
kisaev16
07.06.2020

using System;

namespace NoNamespace.Task029 {

   //Напишите консольное приложение на C#, находящее пару чисел меньше N,  

   //сумма цифр которых одинакова, и сообщающее, если таких чисел нет

   internal class Program {

       private static void Main() {

           Console.WriteLine("Введите N");

           var n = int.Parse(Console.ReadLine());

           var sums = new int[n];

           sums[0] = 1;

           for (var i = 1; i < n; i++) {

               sums[i] = NumberSum(i);

           }

           var found = false;

           for (var i = 1; i < n; i++) {

               if (sums[i] == 0) continue;

               for (var j = i + 1; j < n; j++) {

                   if (sums[i] != sums[j]) continue;

                   Console.WriteLine($"Number sum {i} and {j} = {sums[i]}");

                   found = true;

               }

           }

           if (!found)

               Console.WriteLine("Nothing found");

           Console.ReadKey();

       }

       private static int NumberSum(int number) {

           var sum = 0;

           while (number > 0) {

               sum += number % 10;

               number = number / 10;

           }

           return sum;

       }

   }

}

4,8(89 оценок)
Ответ:
zimina31
zimina31
07.06.2020
Могу предложить такой вариант - в цикле repeat число вводится как строка и посимвольно проверяется. если введено неправильно - возвращает на ввод, если правильно - преобразует строку в число для дальнейшей работы.

var
  a,err: integer;
  s: string;
  i: byte;
  error: boolean;
begin
  repeat
  error:=true;
  writeln ('введите число');
  readln (s);
  for i:=1 to length(s) do begin
    if (ord(s[i])<48) or (ord(s[i])>57)
      then begin error:=false; writeln ('введено не число'); break; end
  end;
  until error=true;
  val(s,a,err);
  writeln ('введено число ',a);
end.

Пример:
введите число
12O
введено не число
введите число
120
введено число 120
4,6(39 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ