• Помогите написать программу в Pascal используя циклы.
    а)S квадратов чисел от 1 до n+1.
    б)P кубов чисел от 1 до n-5.
    в)частное от деления S на P.
    Записать это все в одну программу.

Ответы 5

  • Например с числом 20, показывает что S/P=бесконечность
  • Значение p получается очень большое. Можно первую строку написать так: var n,s,i:integer; p:real;
    • Автор:

      hester
    • 6 лет назад
    • 0
  • а все
    • Автор:

      oscar1ziv
    • 6 лет назад
    • 0
  • понял
    • Автор:

      phoebe
    • 6 лет назад
    • 0
  • // var n,s,p,i:integer; - для значений n < 18var n,s,i:integer; p:real;beginwrite('n = '); readln(n);s:=0;for i:=1 to n+1 do s:=s+i*i;writeln('s = ',s);p:=1;for i:=1 to n-5 do p:=p*i*i*i;writeln('p = ',p);writeln('s/p = ',s,'/',p,' = ',s/p);end.Пример:n = 10s = 506p = 1728000s/p = 506/1728000 = 0.000292824074074074
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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