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

По информатике: даны два катета прямоугольного треугольника. найти гипотенузу и углы треугольника. это надо решить в паскале. заранее

Показать ответ
Ответ:
stipstip353p090as
stipstip353p090as
21.04.2020 18:30

Задача 1:

using System;

using System.Linq;

namespace ConsoleApp1

{

   internal class Program

   {

       private static void Main(string[] args)

       {

           Console.Write("Enter n: ");

           int n = int.Parse(Console.ReadLine());

           var x = new int[n];

           var rand = new Random();

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

           {

               x[i] = rand.Next(-100, 100);

               Console.WriteLine($"x[{i}] = {x[i]}");

           }

           int max = x.Max();

           int index = Array.IndexOf(x, max);

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

           {

               if (x[i] < 0)

                   x[i] = 0;

           }

           Console.WriteLine("\nResult:");

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

               Console.WriteLine($"x[{i}] = {x[i]}");

       }

   }

}

Задача 2:

using System;

using System.Linq;

namespace ConsoleApp2

{

   internal class Program

   {

       private static void Main(string[] args)

       {

           Console.Write("Enter n: ");

           int n = int.Parse(Console.ReadLine());

           var a = new int[n];

           var rand = new Random();

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

           {

               a[i] = rand.Next(-100, 100);

               Console.WriteLine($"x[{i}] = {a[i]}");

           }

           int[] positiveItems = a.Where(t => t > 0).ToArray();

           if (positiveItems.Length == 0)

           {

               Console.WriteLine("No positive numbers");

               return;

           }

           int sum = positiveItems.Sum();

           int product = positiveItems.Aggregate((x, y) => x * y);

           double arithmeticMean = sum / (double)positiveItems.Length;

           double geometricMean = Math.Pow(product, 1 / (double)positiveItems.Length);

           Console.WriteLine($"\nArithmetic mean: {arithmeticMean}");

           Console.WriteLine($"Geometric mean: {geometricMean}");

       }

   }

}


1) В заданном массиве Х(N) замените нулями все отрицательные компоненты, непосредственно предшествую
1) В заданном массиве Х(N) замените нулями все отрицательные компоненты, непосредственно предшествую
0,0(0 оценок)
Ответ:
MN1k1ta
MN1k1ta
12.05.2021 14:19

using System;

namespace ConsoleApp

{

   internal class Program

   {

       private static void Main()

       {

           Console.Write("n = ");

           int n = int.Parse(Console.ReadLine());

           Console.Write("t = ");

           int t = int.Parse(Console.ReadLine());

           int counter = 0;

           // цикл по всем натуральным числам, меньших n

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

           {

               int sum = GetDigitsSum(i); // получаем сумму цифр

               int sqSum = sum * sum; // вычисляем квадрат этой суммы

               if (sqSum == t)

               {

                   counter++;

                   Console.WriteLine(i);

               }

           }

           if (counter == 0)

               Console.WriteLine("Nothing found");

       }

       private static int GetDigitsSum(int num)

       {

           int sum = 0;

           while (num > 0)

           {

               sum += num % 10; // добавляем в сумму последнюю цифру

               num /= 10; // отсекаем последнюю цифру

           }

           return sum;

       }

   }

}

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