помогите,пожалуйста,решить л.р. по номером 2 на программе PascalABC.Net вместе с блок-схемой и объяснением.ПОЖАЛУЙСТа
Приложения:
![](https://st.uroker.com/files/839/839f33f0095145329b69906fc56f98cc.jpg)
Ответы
Ответ дал:
0
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.
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.
Приложения:
![](https://st.uroker.com/files/f98/f98b731c4c4a67acf6cf456cfa5dbc65.png)
Вас заинтересует
1 год назад
1 год назад
5 лет назад
8 лет назад
8 лет назад
8 лет назад