gygfyye66363
16.02.2023 15:50

Составьте кроссворд на тему: "Виды информации".

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Алижан07
09.01.2020 12:02

ответ: Я незнаю шарп,но вот реализация на Python.

import random  #

a = []   #Обьявление Массива

z1 = 0   #Эта переменная делает подсчёт чётных чисел

z2 = 0 #

Эта переменная делает подсчёт нечётных чисел

i = 0     #Переменная итератор для цикла

while i < 17:   #Обьявление Цикла,пока i < 17

   x = random.randint(-100,200)   #в переменной x,генерируется числа в заданном диапазоне

   a.append(x)  #добавляем в массив нашу переменную x

   if (a[i] % 2) == 0:   #Если наш элемент массива делится на 2 без остатка

       z1 += 1  #Делаем подсчёт в этой переменной

   else:  #Иначе

       z2 += 1  #Делаем Подсчёт в этой переменной

   i += 1  #инкреминтируем нашу переменную i,до +1.Это делается для цикла,когда переменная i,дойдет до 17 цикл завершится.И мы выйдем из тела цикла

print(a)  #Выводим все элементы массива

if z1 > z2:  #Если z1 > z2

   print('Чётных Больше')  #Выводим этот текст

else:  #Иначе

   print('Нечётных Больше')#Выводим этот текст

0,0(0 оценок)
Ответ:
partybally
07.02.2023 21:15
// PascalABC.NET 3.3, сборка 1542 от 05.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=8;
  var a:=new real[n,n];
  var k:=1;
  for var i:=0 to n-1 do
    for var j:=0 to n-1 do begin
      if i.IsEven then a[i,n-1-j]:=k
      else a[i,j]:=k;
      k+=1
      end;
  a.Println(3,0)
end.

Результат
  8  7  6  5  4  3  2  1
  9 10 11 12 13 14 15 16
 24 23 22 21 20 19 18 17
 25 26 27 28 29 30 31 32
 40 39 38 37 36 35 34 33
 41 42 43 44 45 46 47 48
 56 55 54 53 52 51 50 49
 57 58 59 60 61 62 63 64
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота