kotletka223
01.07.2021 14:06

напишите побыстрей оч надо​


напишите побыстрей оч надо​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Cociheyuajnqhvedoxbs
12.07.2022 21:28

#include <iostream>

using namespace std;

int main()

{

   int number;

   int positive = 0;

   int negative = 0;

   int amount = 0;

   cin >> number;

   while (number != 0)

   {

       amount += number;

       if (number > 0)

       {

           positive++;

       }

       else if (number < 0)

       {

           negative++;

       }

       cin >> number;

   }

   cout << amount << endl << positive - negative;

}

Объяснение:

#include <iostream> // Библиотека ввода - вывода

using namespace std; // Пространство имён

int main()

{

   int number; // Целочисленная переменная для хранения вводимых с клавиатуры чисел

   int positive = 0; // Целочисленная переменная для хранения количества положительных чисел

   int negative = 0; // Целочисленная переменная для хранения количества отрицательных чисел

   int amount = 0; // Целочисленная переменная для хранения суммы чисел последовательности

   cin >> number; // Вводим число с клавиатуры

   while (number != 0) // Пока значение переменной number ≠ 0

   {

       amount += number; // Суммируем

       if (number > 0) // Если значение переменной number - положительное

       {

           positive++; // Добавляем единицу

       }

       else if (number < 0) // Если значение переменной number - отрицательное

       {

           negative++; // Добавляем единицу

       }

       cin >> number; // Вводим число с клавиатуры

   }

   cout << amount << endl << positive - negative; // Выводим сумму чисел последовательности и разность между количеством положительных и отрицательных

}

0,0(0 оценок)
Ответ:
grimangus
23.04.2023 19:08
// PascalABC.NET 3.2, сборка 1401 от 14.03.2017
// Внимание! Если программа не работает, обновите версию!

1. Решение без проверки вводимых данных

begin
  var a,b:integer;
  Read(a,b);
  var P:=ArrFill(30,0);
  for var i:=a-1 to b-1 do P[i]:=2;
  P.Println
end.

Пример
2 10
0 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0

2. Решение с контролем ввода

begin
  var a:=ReadInteger('Введите a от 1 до 30:');
  if a<1 then begin Writeln('Неверно'); Exit end;
  var b:=ReadInteger('Введите b от '+a.ToString+' до 30:');
  if (b<a) or (b>30) then begin Writeln('Неверно'); Exit end;
  var P:=ArrFill(30,0);
  for var i:=a-1 to b-1 do P[i]:=2;
  P.Println
end.

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