• Напишите программу (паскаль) для вычисления разности
    S=1 - 1*2 - 1*2*5 - 1*2*5*8 - 1*2*5*8*11

Ответы 1

  • Первый вариант:Var   A,N:longint;   S,P:real;BeginWrite('Введите количество членов последовательности(не менее одного): ');ReadLn(N);S:=1;P:=1;For N:= 0 to N-1 do    Begin    P:=P*(2+N*3);    S:=S-P    End;WriteLn('S = ',S);End.Второй вариант:Var   A,N:longint;   S,P:real;BeginS:=1;P:=1;For N:= 0 to 3 do    Begin    P:=P*(2+N*3);    S:=S-P    End;WriteLn('S = ',S);End.
    • Автор:

      t-bone
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years