В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Иринка853653
Иринка853653
11.04.2022 19:26 •  Информатика

Яку команду використати для встановлення значеня властивості о'екту
у Лазарусі

Показать ответ
Ответ:
pirishok
pirishok
08.09.2020 13:02
Казалось бы, ответ на вопрос какой народ придумал арабские цифры гениально прост. Ну кто еще, как ни арабы, могли придумать наши с вами цифры, если они носят название арабские?
Однако не все так просто. Если посмотреть на израильские древние языки, то написание цифр там, как ни странно, совершенно не такое, к какому мы привыкли. Их цифры представляют из себя завитушки и крючёчки, и только их цифра «9″ чуть-чуть смахивает на нашу девятку.
Так кто же тогда придумал арабские цифры? На самом деле, знакомые нам цифры (1, 2, 3, …, 9) придумали вовсе не арабские народы. Это написание пришло к нам из Индии. Именно индийские древние народы так обозначали цифры. Конечно, сегодня данное написание претерпело множество изменений, но именно в древней индийской письменности можно разглядеть похожие «закорючки» . Арабские цифры были придуманы в Древнем Востоке для того, чтобы людям было удобнее записывать сложные математические вычисления. Ведь тогда на территории Древнего Востока существовало большое количество научных и псевдонаучных школ.
Но почему тогда цифры названы арабскими? Оказывается, из Индии в Европу эти цифры принесли именно арабы. Однако напрашивается вопрос – почему же тогда арабы не оставили такое написание и себе?
0,0(0 оценок)
Ответ:
MoriYuka
MoriYuka
23.10.2022 15:57
Var
    n, k, i, imax, j: integer;
    a: array[1..100]of integer;

begin
    randomize;
    n := random(30) + 10;
    for i := 1 to n do
    begin
        a[i] := Random(30);
        write(a[i], ' ');
    end;
    writeln();
   
    {сортировочка}
    for i := 1 to n - 1 do
    begin
        imax := i;
        for j := i + 1 to n do
            if a[j] > a[imax] then
                imax := j;
        k := a[i];
        a[i] := a[imax];
        a[imax] := k;
    end;
   
    for i := 1 to n do
        write(a[i], ' ');
   
    k := 0;
    for i := 2 to n - 1 do
        if (a[i] <> a[i - 1]) and (a[i] <> a[i + 1]) then
            k := k + 1;
   
    if a[1] <> a[2] then k := k + 1;
    if a[n] <> a[n - 1] then k := k + 1;
   
    writeln();
    writeln('No doubles - ', k);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота