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

ВАРІАНТ 1 10 клас
1 Поняття інформації, повідомлення, даних. Що
собою являє наука інформатика, інформаційні
технології,
2 Поняття інформаційної безпеки, конфіденційність.
Загрози інформаційній безпеці.
3 Освітні ресурси Інтернету, навести приклади та
описати їх.
4 Загальна характеристика педагогічних програмних
засобів. Поділ їх на групи. Основні складові ППЗ,
основні інформаційні блоки.
5 Інтернет - маркетинг. Пояснити що це таке, як він
проявляється в нашому житті.

👇
Открыть все ответы
Ответ:
098714
098714
16.12.2021

using System;

using System.Collections.Generic;

using System.Linq;

using System.Numerics;

public class Program

{

   public static void Main(string[] args)

   {

       Console.WriteLine("Enter 12 integer numbers");

       var Arr = new List<int>();

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

       {

           Arr.Add(int.Parse(Console.ReadLine()));

       }

       Console.WriteLine($"Кол-во нулевых элементов: {Arr.Where(p => p == 0).Count()}");

       Console.WriteLine($"Positive numbers product: {Arr.Where(p => p > 0).Aggregate(BigInteger.One, (p, q) => p * q)}");

       Console.ReadKey();

   }

}

Объяснение:

Добавьте ссылку на сборку System.Numerics в вашем проекте для корректной работы программы. Иначе будет ругаться на несуществующее пространство System.Numerics

4,6(28 оценок)
Ответ:
777sofia777
777sofia777
16.12.2021
Дешифровка: ВХОД_ОТКР Ы Т.

дешифровки:
Const sh = '_.,';
Var
  St : String;
  i  : Integer;
Function DeCode(S : String; Tabl : String; k : Integer) : String;
Var j,n : Integer;
Begin
  For j:=1 to Length(S) do
  Begin
    n:=Pos(S[j],sh);
    If n>0 then
    Begin
      n:=n+k;
      While n>Length(sh) do n:=n-Length(sh);
      While n<=0 do n:=n+Length(sh);
      S[j]:=sh[n];
    end
  end;
  DeCode:=S;
end;
Begin
  St:='ЗЫФЙГФШРЦ . ШД';
  Writeln(Decode(St,sh,-6));
  //For i:=-10 to 10 do Writeln(Decode(St,sh,i));
end.
4,6(36 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ