Усовершенствовать программу. следующее. "дано вещественное число x и целое число n> 0. найти значение выражения x-x^3/(3! )+x^5/(5! )-+(-1)^n*x^2*n+1/((2*n+*(n! =1*)". я вроде бы решил эту . вот моё решение: uses crt; var i, n: integer; sum, a, x, z: real; begin write ('введите n: '); readln (n); write ('введите x'); readln (x); z: =sqr (x); a: =x; sum: =x; for i: =2 to n do begin a: =-a*z; sum: =sum + a/(2*i+1) end; writeln; writeln ('значение суммы', sum); end. но мой преподаватель придрался к строчке: sum: =sum + a/(2*i+1) вопрос к вам следующий. как задать значение "i" по другому? заранее ! ps я так понял, что его не устроила запись 2i и он хочет, чтобы i было просто i. извините меня за такие простецкие выражения, я - начинающий. пришлите, , ваш вариант решения данной , если несложно, иначе не разберусь.

Program n1;
var x: integer;
begin
    writeln('Введите число');
    readln(x);
    if (x mod 10 = 5) or (x mod 10 = -5) then
        writeln('Число оканчивается на 5')
    else
        writeln('Число не оканчивается на 5');
end.

program p2;
var x, y, sum: integer;
begin
    writeln('введите число');
    readln(x);
    if ((x >= 10) and (x <= 99)) or ((x <= -10) and (x >= -99)) then
        writeln('является двузначным')
    else
        writeln('не является двузначным');
    y := abs(x);
    sum := 0;
    while (y <> 0) do
        begin;
        sum := sum + (y mod 10);
        y := y div 10;
        end;
    if sum = 8 then
        writeln('сумма цифр равна 8')
    else
        writeln('сумма цифр не равна 8');
end.

ответ:Home – перемещение курсора ввода текста в начало строки (на неполных клавиатурах тот же эффект достигается через комбинацию клавиш fn + ←).

Home – перемещение курсора ввода текста в начало строки (на неполных клавиатурах тот же эффект достигается через комбинацию клавиш fn + ←)

End – перемещение курсора ввода текста в конец строки (на неполных клавиатурах тот же эффект достигается через комбинацию клавиш fn + →).

←↑→↓ - клавиши перемещения курсора ввода по тексту.

Ctrl + → - перемещение курсора на одно слово вправо.

Ctrl + ← - перемещение курсора на одно слово влево.

Page Up – на экранную страницу вверх.

Page Down – на экранную страницу вниз.

Ctrl + Page Up – на страницу вверх.

Ctrl + Page Down – на страницу вниз.

Ctrl + Home – переход в начало текста / документа.

Ctrl + End – переход в конец текста / документа.

Shift + F5 – переход к месту недавнего редактирования текста

Объяснение: