периодическая функция, числа, кратные 11 Опции

[Bold]

1.ПЕРИОДИЧЕСКАЯ ФУНКЦИЯ
Утверждается, что функ-ия y=f(x) периодическая с периодом Т. Проверить это численно, вычислив фун-ию с постоянным шагом на отрезке [0;5*Т]. Учесть погрешность вычислений и возможные точки разрыва функций. Проверить на примере функций: y=(Sin^2)x, y=tg x (T=пи=3,14); y= -Sin x; (T=2*пи)
пи=3,14, иррациональное число.

2.число делиться на 11, если разность между суммой цифр, стоящих на нечетных местах, и суммой цифр, стоящих на четных местах, кратно 11. Проверить этот признак для ЧЕСКИЕ ФУНКЦИИ. всех натуральных чисел, не превосходящих заданного m, и вывести числа, кратные 11.

Сообщение отредактировано: мисс_граффити - 14.06.2007 18:43

[Lapp]

!

Bold, надеюсь, что за тобой не заржавеет переименовать тему, так как твой заголовок нарушает Правила (ссылка вверху страницы). Жду переименования в ближайшие часы - или закрываю тему.. Помимо прочего, "одна тема - одна задача"

[Ozzя]

2.число делиться на 11, если разность между суммой цифр, стоящих на нечетных местах, и суммой цифр, стоящих на четных местах, кратно 11. Проверить этот признак для ЧЕСКИЕ ФУНКЦИИ. всех натуральных чисел, не превосходящих заданного m, и вывести числа, кратные 11.

var

 Raznost,i,sumnech,sumch,k,code,chislo: Integer;
  Stroka: String;

begin
  Read(chislo);
  str(Chislo,Stroka);
  sumnech:=0;
  sumch:=0;
  for i:=1 to Length(stroka) do
  begin
    val(Stroka[i],k,Code);
    if odd(i) then
      sumnech:=sumnech+k
    else
      sumch:=sumch+k
  end;
  Raznost:=abs(sumch-sumnech);
  if raznost mod 11 = 0 then
    writeLn('Delitsya na!')
  else
    writeLn('Ne delitsya na!')
end.