• Помогите пожалуйста оформить задачи на цикл как программы в Паскале. 1. Программа, чтобы найти сумму чисел 1+2+3+4+5...n. 2. Программа, чтобы найти сумму чисел ряда 1+1/2+1/3+1/4+1/5...1/n. Нужно полное оформление чтоб в комп вбить:))

Ответы 1

  • Программы для PascalABC.NetДля древних турбопаскалей требуется добавить две строки: первым оператором поставитьUses Crt;а предпоследнимReadkey;var  i, n, s: integer;begin  Write('Введите количество элементов n: '); Read(n);  s := 0;  for i := 1 to n do s := s + i;  Writeln('Сумма 1+2+...+', n, ' = ', s)end.Тестовое решение:Введите количество элементов n: 10Сумма 1+2+...+10 = 55var  i, n: integer;  s:real;begin  Write('Введите количество элементов n: '); Read(n);  s := 0;  for i := 1 to n do s := s + 1/i;  Writeln('Сумма 1+1/2+...+1/', n, ' = ', s)end.Тестовое решение:Введите количество элементов n: 8Сумма 1+1/2+...+1/8 = 2.71785714285714
    • Автор:

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

Войти через Google

или

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

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

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