Var A,S:real;
n:integer;
Begin
Write('n = ');
Read(n);
a:=10;
For n:= 1 to n do
Begin
a:=a*1.1;
S:=S+a
End;
WriteLn(S)
End.
Вариант программы без массива:
#include <iostream>
using namespace std;
int main() {
int n, a, k = 0;
cin >> n;
for (int i=0; i<n; i++) {
cin >> a;
if (a % 10 == 6) k++;
}
cout << k << "\n";
return 0;
}
Пример:
5
420
836
705
379
706
2
Минус например -1 или -2 ну и т.д.