Когда-то петя решил стать филологом. он открыл толковый словарь и нашёл длинное и непонятное ему слово. он подумал, что такие длинные слова в языке не нужны, и решил убрать из слова «лишние» буквы. петя придумал следующую операцию: если длина слова чётна, то он убирает последнюю букву, а иначе – среднюю. такую операцию будущий филолог повторяет до того момента, пока в слове не останется одна буква. в итоге петя получает вместо длинного слова всего одну букву, которую, по его мнению, запомнить намного проще.сейчас петя точно не может вспомнить слово, которое было найдено им в словаре. однако он помнит, что сделал ровно n операций удаления буквы.теперь нам интересно, какая же буква исходного слова осталась. нам решить эту сложную ! входные данныев единственной строке входного файла input.txt записано натуральное число n (1 ≤ n ≤ 30000).выходные данныев единственную строку выходного файла output.txt нужно вывести n+1 символ. i-тый из них должен быть равен «+», если i-тая буква осталась в конечном слове, и «.» – если петя вычеркнул эту букву на каком-то из шагов.программа нужна на с++.
Алгоритм решения задачи.
0) Начало
1) S:=0
2) Начало цикла по i от 5 до 50
3) Если остаток от деления (i /5)=0 то s:=s+i;
4) Конец цикла
5) Вывод S
6) Конец
Программа на паскале реализующая данный алгоритм
Program Summa;
var s,i:integer;
begin
s:=0;
for i:=5 to 50 do
if (i mod 5)=0 then s:=s+i;
writeln('Сумма первых 10 чисел которые кратны 5=',s);
end.
Алгоритм решения задачи.
0) Начало
1) S:=0
2) Начало цикла по i от 5 до 50
3) Если остаток от деления (i /5)=0 то s:=s+i;
4) Конец цикла
5) Вывод S
6) Конец
Программа на паскале реализующая данный алгоритм
Program Summa;
var s,i:integer;
begin
s:=0;
for i:=5 to 50 do
if (i mod 5)=0 then s:=s+i;
writeln('Сумма первых 10 чисел которые кратны 5=',s);
end.