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

Рассчитать сумму кубов всех положительных значений и их количество для функции y=3*x^2+2coccosx составить программу для табулирования функции на промежутке [0; 4] с шагом h=0,5. в отчет включить тексты программ, реакции эвм.

Показать ответ
Ответ:
АнастасияСтр
АнастасияСтр
18.06.2021 05:43

С# консольное приложение

Объяснение:

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

using System.Threading.Tasks;

namespace ConsoleApp1

{

   class Program

   {

       static void Main(string[] args)

       {

           //Ваш массив

           string[] months = {"May","August","April","May","July"};

           //Искать до тех пор пока в массиве есть "Май"

           while (-1!=Array.IndexOf(months,"May"))

           {

               //Найти где находится Май в массиве

               int index = Array.IndexOf(months, "May");

               //Изменить май

               months[index] = "Это не май";

           }

           //Для отладки

           Console.ReadKey();

       }

   }

}

0,0(0 оценок)
Ответ:
кирюха6677
кирюха6677
09.10.2022 10:30
FOR
Var   a, i, n, sum: integer;  
Degin  
  ReadLn(a, n);  
  Sum := 1;  
   For i := 1 to n do sum := sum * a;  
  WriteLn(sum);
End.

WHILE
Var   a, i, n, sum: integer;  
Begin  
 Read(a, n);  
 Sum := 1;  
  While i <> n do  
   Begin    
    Sum := sum * a;  
    Inc(i);  
   End;  
 Writeln(sum);
End.

REPEAT
Var   a, i, n, sum: integer;  
Begin  
 Read(a, n);  
 Sum := 1;  
  If n <> 0 then    
   Repeat      
     Begin        
       Sum := sum * a;        
       Inc(i);      
     End;    
   Until i = n;  
  WriteLn(sum);
End.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота