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

Дано любое целое число.правда ли ,что все цифры ,которыми оно записано ,одинаковы?

👇
Ответ:
Ксюнька1801
Ксюнька1801
19.12.2020

C#. Пример работы на изображении.

using System;

using System.Linq;

namespace Цифры_в_числе

{

   class Program

   {

       static void Main(string[] args)

       {

           string numb; bool flag;

           do

           {

               Console.Write("Введите любое целое число: ");

               numb = Console.ReadLine();

               

               if (flag = !int.TryParse(numb, out int some))

                   Console.WriteLine("Не число!");

           } while (flag);


           if (numb[0] == '-')

               numb = numb.Substring(1, numb.Length - 1);


           var q = from x in numb

                   group x by x into g

                   let count = g.Count()

                   orderby count descending

                   select new { Value = g.Key, Count = count };


           Console.WriteLine("Правда ли, что все цифры в этом числе одинаковы?");

           Console.WriteLine($"ответ: {(q.Count() == 1 ? "Да" : "Нет")}");


       }

   }

}



Дано любое целое число.правда ли ,что все цифры ,которыми оно записано ,одинаковы?
4,6(88 оценок)
Открыть все ответы
Ответ:
daryanesterchuk
daryanesterchuk
19.12.2020

а) БД «Погода», запись номер 3.
       ВЛАЖНОСТЬ = 90
       ОСАДКИ = "дождь"
б) БД «Домашняя библиотека», запись номер 1.
       АВТОР = "Толстой Л.Н."
       ГОД = 1990
в) БД «Успеваемость», запись номер 4.
       ФИЗИКА = 2
7. Данные высказывания запишите в форме простых логических выражений и определите результат их вычисления для указанных записей.
а) БД «Погода», запись номер 2.
       Температура > 0
       ОСАДКИ <> "дождь"
б) БД «Домашняя библиотека», запись номер 3.
       ГОД = 1982
       Полка < 5
в) БД «Факультативы», запись номер 4.
       Увлечения matches "*геологи".
       Фамилия_ученицы = "Шляпина".
8. Запишите следующие высказывания в форме логических выражений:
а) фамилия_ученика <> "Семенов";
б) Увлечения matches "*геология";
в) дата < 5/05/1989;
г) дата <= 23/09/1996;
д) алгебра <> "отлично";
е) АВТОР = "Беляев А.Р." ;
ж) ГОД = 1990;
з) Полка <= 5.

4,4(65 оценок)
Ответ:
nikitagarin2
nikitagarin2
19.12.2020
1. Вот так сейчас решают подобные задачи:

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  Writeln(Range(1,100).Select(i->sin(i)*cos(i)).Where(x->x<>0).Average)
end.

Тестовое решение:
-0.00136006072493969

2. А вот так учат писать это же школьные учителя:

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
  m:array[1..100] of real;
  i,k:integer;
  s:real;

begin
  s:=0;
  k:=0;
  for i:=1 to 100 do begin
    m[i]:=sin(i)*cos(i);
    if m[i]<>0 then begin
      s:=s+m[i];
      k:=k+1
      end
    end;
  Writeln(s/k)
end.

Тестовое решение:
-0.00136006072493969
4,7(55 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ