сколько кружочков в числе, то есть в 8 два кружка и число 8888 - 8 кружков, и число 8 в числе с вопросами, значит ответ - 2
Var x:integer;
begin
for x:=5 to 14 do begin
x:=x*(x+1)
end;
end.
PASCAL не уверен что работает но смысл такой
1.
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "rus");
char arr[100];
int num = 0;
std::cin >> arr;
for (int i = 0; arr[i] != '\0'; i++)
{
num += 1;
}
cout << "Из 100 элементов массива занято: " << num << ", свободно: " << 100 - num << endl;
return 0;
}
Вот) Тут используется формула
и, как я понимаю, всё таки
, а не
var
x, res: real;
i, n: integer;
begin
writeln('Enter n, x:');
readln(n, x);
res := 0;
for i := 1 to n do
res := res + cos(exp(i * ln(x)));
writeln(res);
end.
=======
var
A: real;
i: integer;
begin
writeln('Enter A:');
readln(A);
i := 1;
while 1 / (2 * i) >= A do
i := i + 1;
writeln('a_', i, ' = ', 1 / (2 * i));
end.