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

Сформулируйте массив по образцу 0 0 0 0 0 0 7 0 0 0 0 0 6 0 0 0 0 0 5 0 0 0 0 0 4 0 0 0 0 0 3 0 0 0 0 0 2 0 0 0 0 0 1 0 0 0 0 0 0

👇
Ответ:
murad2097
murad2097
19.01.2022
Var A:array[1..7,1..7] of byte;
Begin
For var i:= 1 to 7 do
   Begin
   For var j:= 1 to 7 do
      Begin
      if (8-i = j) then A[i,j]:= j
      else A[i,j]:=0;
      Write(A[i,j])
      End;
   Writeln
   End;
End.
4,6(55 оценок)
Ответ:
46hitman46
46hitman46
19.01.2022
// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var a:=MatrGen(n,n,(i,j)->j=n-1-i?n-i:0);
  a.Println(2)
end.

Примеры
n= 7
  0  0  0  0  0  0  7
  0  0  0  0  0  6  0
  0  0  0  0  5  0  0
  0  0  0  4  0  0  0
  0  0  3  0  0  0  0
  0  2  0  0  0  0  0
  1  0  0  0  0  0  0

n= 12
  0  0  0  0  0  0  0  0  0  0  0 12
  0  0  0  0  0  0  0  0  0  0 11  0
  0  0  0  0  0  0  0  0  0 10  0  0
  0  0  0  0  0  0  0  0  9  0  0  0
  0  0  0  0  0  0  0  8  0  0  0  0
  0  0  0  0  0  0  7  0  0  0  0  0
  0  0  0  0  0  6  0  0  0  0  0  0
  0  0  0  0  5  0  0  0  0  0  0  0
  0  0  0  4  0  0  0  0  0  0  0  0
  0  0  3  0  0  0  0  0  0  0  0  0
  0  2  0  0  0  0  0  0  0  0  0  0
  1  0  0  0  0  0  0  0  0  0  0  0
4,7(2 оценок)
Открыть все ответы
Ответ:
rrrf1
rrrf1
19.01.2022

1) подчеркивание ошибок, подчеркивание грамматики, ручная проверка ошибок и грамматики, управления словарем, изменение языка, установка новых словарей, отключение проверка орфографии, автокоррекция.

2)добавление словаря, правописание, автозамена,

3)Автозамена-ищет часто встречающиеся ошибки набора и правописания в вашем документе и автоматически исправляет их, как только они появляются. К примеру, вы можете указать, что слово венигрет всегда нужно заменять на винегрет.

Автотекст-позволяет определить и сохранить часто используемые текстовые блоки и/или графические объекты и вставлять их в документ по мере надобности. Например, вы можете указать в качестве элемента автотекста свое полное имя и адрес и вставлять его в документ с всего лишь нескольких клавиш.

4,4(65 оценок)
Ответ:
rimmabuketova
rimmabuketova
19.01.2022

#include <bits/stdc++.h>

using namespace std;

long long a,b,c,A,B,count1=0;

long long min1;

int main()

{

   cin>>A>>B;

   for(int i=B-1;i>A;i--){

       cout<<i<<" ";

       count1++;

   }

   cout<<endl;

   cout<<count1<<endl;

   return 0;

}

Объяснение:

Програма написана на c++, я думаю ти напишеше на пайтоні тому, що у моєму варінті показано як це усе має працювати.

1.Спочатку ти вводиш 2 цілих числа. //cin>>A>>B;

2.Робиш цикл від B до A

3. Виводиш i(це може бути люда змінна)

4.Лічильник++

5.cout<<endl;  я роблю пропуск, для удобства.

6.Вивожу лічильник на екран

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