Задача 1 Дано число S. И дана бесконечная последовательность чисел. Если промежуточная сумма последовательности больше S, то вывести количество чисел последовательности, которое было считано.
Задача 2
Дана последовательность чисел оканчивающихся нулем. Определить самую длинную последовательность из повторяющихся чисел. Вывести ее длину.
#include <iostream>
using namespace std;
int main(){
srand(time(NULL));
int n;
cout << "Vvedite N << endl;
cin >> n;
int arr[n];
int a,b;
cout << "Vvedite diapozon A-B cherez probel" << endl;
cin >> a >> b;
for (int i=0; i<n; i++) a[i]=rand()%b+a;
int s50 = 0;
int ss50 = 0;
int s = 0;
int ss = 0;
for (int i=0; i<n; i++) {
if (a[i]<50) {
s50+=a[i];
ss50++;
} else {
s+=a[i];
ss++;
}
}
cout << "Srednee arifmeticheskoe chisel menshe 50 ravno " << s50/ss50 << endl;
cout << "Srednee arifmeticheskoe chisel ostalnix elementov ravno " << s/ss;
return 0;
}
begin
var Прирост := 1 + ReadReal('Введите х в процентах:') / 100;
var (Запас, Отлов, Порог) := ReadReal3('Введите A, B, C в тоннах:');
var Лет := 0;
while Запас >= Порог do
begin
Запас := Запас * Прирост - Отлов;
Inc(Лет);
if Лет > 1000 then
begin
Println('И на тысячу лет хватит!');
Exit
end
end;
Println(Лет - 1)
end.
Введите х в процентах: 12.5Введите A, B, C в тоннах: 300 90 753