var x,n:integer;
begin
readln(n);
readln(x);
for i=:1 to n do
x:= (x-i);
end.
Если решение задачи будет не верно, извените значит надо писать более подробно.
INPUT s$
k = LEN(s$) + 1
FOR i = 1 TO k
IF MID$(s$, i, 1) = " " THEN n = n + 1 'считаем число слов
NEXT i
n = n + 1
DIM f$(n)
j = 1
FOR i = 1 TO k 'разрезаем фразу на слова и заносим их в массив f
t$ = MID$(s$, i, 1)
f$(j) = f$(j) + t$
IF t$ = " " THEN j = j + 1
NEXT i
f$(n) = f$(n) + " "
FOR i = 1 TO n 'делаем сортировку массива
FOR j = 1 TO n
IF LEFT$(f$(i), 1) < LEFT$(f$(j), 1) THEN
P$ = f$(i)
f$(i) = f$(j)
f$(j) = P$
END IF
NEXT j
NEXT i
FOR i = 1 TO n
PRINT f$(i);
NEXT i<span>
</span>
#include <iostream>
#include <time.h>
#include <vector>
#include <numeric>
#include <algorithm>
using namespace std;
int find_digital_root(int elem) {
vector<int> temp_vec;
int sum = 0;
while (elem != 0) {
temp_vec.push_back(elem % 10);
elem = elem / 10;
}
if (temp_vec.size() == 1) {
return temp_vec[0];
}
else {
sum = accumulate(temp_vec.begin(), temp_vec.end(), 0);
temp_vec.clear();
return find_digital_root(sum);
}
}
int main()
{
int temp = 0;
for (int i = 100; i <= 200; i++)
{
temp = find_digital_root(i);
if (temp == 1 || temp == 2 || temp == 3 || temp == 5 || temp == 7) {
cout << i << endl;
}
}
}
Тоже олимпиада? Предыдущие задания сделала?