Вот тебе в паскале
program ryad_chisel;
var N, t:integer;
begin
read(N);
t:=(N*(N+1))div 2;
if t mod 2 =1 then writeln('IMPOSSIBLE')
else begin
if N mod 2 =0 then begin
t:=N div 4;
repeat
write('+');
t:=t-1;
until t=0;
t:=N div 2;
repeat
write('-');
t:=t-1;
until t=0;
t:=N div 4;
repeat
write('+');
t:=t-1;
until t=0;
end
else begin
t:=((N+1) div 4)-1;
repeat
write('+');
t:=t-1;
until t=0;
t:=((N-1) div 2)+1;
repeat
write('-');
t:=t-1;
until t=0;
t:=(N+1) div 4;
repeat
write('+');
t:=t-1;
until t=0;
end
end
end.
На самом деле изначально здесь была другая задача. Вот ее условие:
C4. Построить из строки следующую анаграмму
Ограничение времени 1 секунда
Ограничение памяти 64Mb
Ввод стандартный ввод или input.txt
Вывод стандартный вывод или output.txt
Для данного слова (последовательности строчных латинских букв) выведите следующее за ним (в лексикографическом порядке) слово, которое может быть получено из данного перестановкой букв (анаграмму). Если данное слово уже является последним среди всех своих анаграмм, то необходимо вывести первую возможную (в лексикографическом порядке) анаграмму.
Формат ввода
Задана последовательность слов, по одному слову в строке. Длина одного слова не превышает 50 символов.
Формат вывода
Необходимо вывести результат для каждого полученного на вход слова.
Ниже программный код:
#include <iostream>
#include <string>
#include <algorithm>
using namespace std;
int main() {
string word;
char for_sort[51];
int count_for_sort, min_def, min_def_index;
while (cin >> word) {
count_for_sort = 0;
min_def = 98;
min_def_index = 51;
for (int i = word.size() - 1; i >= 0; i--) {
for_sort[count_for_sort] = word[i];
count_for_sort++;
if (word[i] < word[i + 1])
break;
}
int shift = 0;
if (word[word.size() - count_for_sort] < word[word.size() - count_for_sort + 1]) {
for (int i = 0; i < count_for_sort; i++)
if (for_sort[i] - word[word.size() - count_for_sort] > 0 &&
for_sort[i] - word[word.size() - count_for_sort] < min_def) {
min_def = for_sort[i] - word[word.size() - count_for_sort];
min_def_index = i;
}
swap(for_sort[0], for_sort[min_def_index]);
shift = 1;
}
sort(for_sort + shift, for_sort + count_for_sort);
for (int i = word.size() - count_for_sort; i < word.size(); i++)
word[i] = for_sort[i - word.size() + count_for_sort)];
cout << word << endl;
word.clear();
}
return 0;
}
алг Сумма цифр
нач
вывод sumDigits(12345)
кон
алг цел sumDigits(цел n0)
нач
цел sum=0, n
n:=n0
нц пока n<>0
sum:=sum+mod(n,10)
n:=div(n,10)
кц
знач:=sum
кон
На паскале:
var a,x:integer;
i,s:integer;
begin
writeln('Введите целое число: ');
readln( a );
x:=a; s:=0;
while ( x<>0 ) do begin
s := s + (x mod 10); x := x div 10;
end;
writeln( 'Сумма цифр числа ',a,' = ', s );
end.