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

В якій частині головного вікна розташована область спрайтів​

Показать ответ
Ответ:
Сельга7
Сельга7
15.07.2022 12:54

#include <iostream>

#include <cstdlib>

using namespace std;

int main()

{

setlocale(LC_ALL,"russian");

cout << "Введите количество нечётных чисел (до 2000 включительно) ";

int count;

int sum = 0;

cin >> count;

if(count >= 1 && count <= 2000)

{

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

{

 if(i%2!=0)

 {

   

  if(i!=count) // проверка на то, ставить ли ещё 1 плюс или будет равно

  {

   cout << i << " + ";

      sum=sum+i;

  }

  else

  {

   cout << i;

   sum=sum+i;

  }

   

 }

 else

 {

  if(i!=count)

  {

  cout << i+1 << " + ";

  i++;

  sum=sum+i;

 }

 else

 {

  cout << i+1;

  i++;

  sum=sum+i;

 }

 }

}

}

cout << " = " <<sum;  

   system("pause");

   return 0;

}

Аналогичная программа:

#include <iostream>

#include <cstdlib>

using namespace std;

int main()

{

setlocale(LC_ALL,"russian");

cout << "Введите последнее нечётное число";

int num;

int a;

cin >> num;

num=num+1;

num=num/2;

num=num*num;

cout << "Итого: " << num;

   system("pause");

   return 0;

}

0,0(0 оценок)
Ответ:
Yaklaura
Yaklaura
03.11.2021 22:36
// PascalABC.Net 3.0, сборка 1066

const
  n=5;
var
  a:array[1..n,1..n] of integer;
  x:array[1..n] of double;
  i,j,k:byte;
begin
  Randomize;
  Writeln('*** Исходный массив ***');
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=Random(51)-25;
      Write(a[i,j]:4)
      end;
    Writeln
  end;
  Writeln('*** Массив x ***');
  for j:=1 to n do begin
    x[j]:=0; k:=0;
    for i:=1 to n do
      if a[i,j] mod 2=0 then begin
        x[j]:=x[j]+a[i,j]; Inc(k)
      end;
    if k>0 then x[j]:=x[j]/k;
    Write(x[j]:0:5,' ')
    end;
  Writeln
end.

Тестовое решение:
*** Исходный массив ***
 -10  18  -8 -15   5
 -21 -18   6  -2   9
  -7  22  -4   3  14
  21  16 -10 -18  -9
  17   3 -14 -18  12
*** Массив x ***
-10.00000 9.50000 -6.00000 -12.66667 13.00000
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота