• помогите,пожалуйста,решить л.р. по номером 2 на программе PascalABC.Net вместе с блок-схемой и объяснением.ПОЖАЛУЙСТа

    question img

Ответы 1

  • var  i,n: integer; {Задаем переменные. i - обязательна для цикла for. n - степень}  s,t: real;    {Переменная s - конечный ответ. t - часть с 1-1/2+1/4...}begin  write('Введите число n: '); {Выводим на экран сообщение с просьбой ввести переменную n} readln(n); {Считываем переменную n, в твоем случае - степень}s:=1; {Задаем минимальное значение переменной 'S'}t:=1; {Задаем минимальное значение переменной 't'}if n<0 then writeln('Данное число меньше нуля.') else {Проверяем число на натуральность}for i:=1 to n do {Запускаем цикл}begin    t:=t*-0.5; {Считываем значение} s:=s+t;    {Считаем значение}end;writeln('Ответ: ',s); {Выводим ответ}end.
    answer img
    • Автор:

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

Войти через Google

или

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

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

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