Программа рассчитывает сумму чисел от 1 до введенного пользователем числа. используйте цикл while и продолжите с этими строчками введенными мной.#includeusing namespace std; int main(){ setlocale(lc_all, "rus");

#include <iostream>;

using namespace std;

int main() {

setlocale(LC_ALL, "rus");

int i = 1, x;

cout << "Введите аргумент x= "; cin >> x;

do {

 i ++;

} while (i > x);

cout << i;

return 0;

}

Объяснение:

1. Определим, какой информационный объём занимает одна страница. Если считать, что используется кодировка ASCII, в которой каждый символ занимает один байт, то 64 символа, помещающиеся на одной странице займут 64 байта.
2. Определим количество страниц в тесте, для чего достаточно разделить объем текста на объем одной страницы.
3 КБ = 3 х 1024 Б = 3072 Б.
3072 / 64 = 48 (страниц)
3. Определим, сколько всего потребуется листов бумаги.
Для печати одного экземпляра текста требуется 48 листов, если считать, что текст печатать с одной стороны. Для печати семи копий (неудачный термин, лучше говорить о семи экземплярах, потому что 7 экземпляров - это текст и шесть его копий) потребуется 48 х 7 = 336 (листов) .

ответ: 336 листов

// PascalABC.NET 3.0,сборка 1073
const
  n=10;
var
  a,b:array[1..n] of integer;
  i,p,k,max:integer;
begin
  Randomize;
  max:=-200; k:=0;
  Writeln(' №   A   B  AixBi');
  Writeln('');
  for i:=1 to n do begin
    a[i]:=Random(21)-10;
    b[i]:=Random(21)-10;
    p:=a[i]*b[i];
    Writeln(i:2,a[i]:4,b[i]:4,p:5);
    if p<0 then begin Inc(k); if p>max then max:=p end
  end;
  Writeln('');
  Writeln('Количество AixBi<0 равно ',k);
  Writeln('Максимум среди этих произведений равен ',max);
end.

Тестовое решение:
 №   A   B  AixBi

 1   8  -7  -56
 2  -7  -8   56
 3  -4   3  -12
 4  -9  -2   18
 5 -10   3  -30
 6  -3   3   -9
 7   0   2    0
 8  -9  -7   63
 9  -7  -7   49
10   0  -7    0

Количество AixBi<0 равно 4
Максимум среди этих произведений равен -9