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

Добрый день. Очень нужна ваша решить задачи по информатике 7 класс вам большое хорошие люди! за решение.


Добрый день. Очень нужна ваша решить задачи по информатике 7 класс вам большое хорошие люди! за реше

Показать ответ
Ответ:
erushevsascha
erushevsascha
03.04.2023 04:21
#include <iostream>
#include <cstdlib>
#include <ctime>
int main()
{
    using namespace std;
    cout << "Enter size of array: ";
    int N;
    cin >> N;
    int * ARR = new int[N];
    srand(time(0));
    int i;
    for (i = 0; i < N; ++i)
        ARR[i] = rand() % 100 + 1;

    cout << "Here is an original array:\n";
    for (i = 0; i < N; ++i)
        cout << ARR[i] << "  ";
    cout << endl;

    int temp = ARR[N - 1];
    for (i = N - 1; i > 0; --i)
        ARR[i] = ARR[i - 1];
    ARR[0] = temp;

    cout << "\nHere is a new array:\n";
    for (i = 0; i < N; ++i)
        cout << ARR[i] << "  ";
    cout << endl;

    return 0;
}
0,0(0 оценок)
Ответ:
лерка123456789й
лерка123456789й
17.09.2022 15:41
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;

ПЕР
  n, k, сч, мин, кол: ЦЕЛ;

ЗАДАЧА Сумма_цифр(число: ЦЕЛ): ЦЕЛ;
ПЕР
  сумма: ЦЕЛ;
УКАЗ
  сумма := 0;
  ПОКА число > 0 ВЫП
    УВЕЛИЧИТЬ(сумма, число ОСТАТОК 10);
    число := число ДЕЛИТЬ 10
  КОН;
  ВОЗВРАТ сумма
КОН Сумма_цифр;

УКАЗ
  Вывод.Цепь("n: ");
  n := Приём.Число();
  Вывод.Цепь("^k: ");
  k := Приём.Число();
  мин := 1;
  ОТ сч := 1 ДО n - 1 ВЫП
    мин := мин * 10
  КОН;
  кол := 0;
  ОТ сч := мин ДО мин * 10 - 1 ВЫП
    ЕСЛИ Сумма_цифр(сч) = k ТО
      УВЕЛИЧИТЬ(кол)
    КОН
  КОН;
  Вывод.ЧЦел("^%d", кол, 0, 0, 0)

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