Дана последовательность литер, имеющая следующий вид: d1± d2 ± ... ± dn (di цифры, n>1). Вычислить значение этой алгебраической суммы.
10-11 класс
|
const cf=['0'..'9'];
var s:string;
i,sum,t,c:integer;
begin
writeln('Vvedite posledovatelnost liter:');
readln(s);
val(s[1],t,c); sum:=t;
for i:=2 to length(s)-1 do
begin
if (s[ i ] in cf)and(s[i-1]='+')then
begin
val(s[ i ],t,c);
sum:=sum+t;
end
else if (s[ i ] in cf)and(s[i-1]='-')then
begin
val(s[ i ],t,c);
sum:=sum-t;
end;
end;
writeln('sum=',sum);
end.
Другие вопросы из категории
2) составить программу для вычисления периметра треугольника.
Читайте также
= a1, b2 = a1+ a2, …, bn = a1+ an. Дано n. Получить последовательность , где Даны n,. Получить сумму и количество тех элементов данной последовательности, которые кратны 5 и не кратны 4. Даны n,. Вычислить Даны n и . Получить a1, a2, …, an , 2a1, 3a2, …, (n + 1)n an. Выяснить образуют ли они возрастающую последовательность.
Выходное значение и входные должны отображаться на экране в виде: X1= X2= X3= X4= Y=
Разработать функцию, которая автоматически заполняет массив из 10 наборов входных данных. Массив затем подвергается обработке, т.е. в цикле вычисляются значения функции и выводятся на экран в виде: Y1= Y2= Y3= Y4= , и т.д.
тип входных данных: целое тип выходных данных: целое, функция: x1*sin(x2) + x3*sin(x4)
1, 2, 4, 7, 3, 4, 4 … , каждый элемент этой последовательности, начиная с
четвёртого равен последней цифре суммы трёх предыдущих элементов. Найдите
значение 1400-го элемента этой последовательности.
Ответ: ______________
совершить следующую последовательность действий: выделить весь документ,
скопировать его, затем вставить (ниже в данном файле), затем найти в документе
определенное слово и сохранить документ. Какими горячими клавишами можно
воспользоваться, чтобы совершить данную последовательность действий?
S(0,0)=1,
S(n,0)=0 для n>0,
S(n,n)=1 для n>0,
Иначе S(n,k)=k*S(n-1,k)+S(n-1,k-1).
Для n=15, k=13 найти и вывести число Стирлинга S(n,k).