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

Какое наименьшее целое значение k необходимо подать на вход программы,

чтобы в результате её выполнения напечаталось число 14?

Показать ответ
Ответ:
Amineshin
Amineshin
26.12.2022 05:22
//PascalABC.NET 3.1 сборка 1239
uses System;
uses System.Collections;

begin
    var d := DateTime.Today;
    repeat
        d := d.AddDays(1);
    until d.DayOfWeek = DayOfWeek.Sunday;
    
    var Sundays := new Dictionary<integer, integer>();
    
    repeat
        if Sundays.ContainsKey(d.Year) then
            Sundays[d.Year] += 1
        else
            Sundays.Add(d.Year, 1);
        
        d := d.AddDays((-7));
    until d.Year <= 1;
    
    var max := Sundays.Values.Max;
    Sundays.Where(x -> x.Value = max).Println;
end.
0,0(0 оценок)
Ответ:
Semen200000000
Semen200000000
29.03.2023 11:43

Код на C:

#include <stdio.h>

int main(void)

{

   int n;

   int a[1000];

   scanf("%d", &n);

   for (int i = 0; i < n; i++)

   {

       scanf("%d ", &a[i]);

   }

   

   for (int i = 0; i < n - 1; i++)

   {

       for (int j = 0; j < n - i - 1; j++)

       {

           if (a[j] > a[j + 1])

           {

               int temp = a[j];

               a[j] = a[j + 1];

               a[j + 1] = temp;

           }

       }

   }

   

   for (int i = 0; i < n; i++)

   {

       printf_s("%d ", a[i]);

   }

   return 0;

}

Объяснение:

Создаем массив на 1000 элементов максимум (можно и больше). Потом мы вводим размер массива. И следующие n строк мы вводим числа. При циклов мы проходимся по массиву и при сортировки пузырьком сортируем числа. Потом мы выводим массив

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота