Ввод исполняется с клавиатуры.Ввести естественное n и действительное a. Вычислить
Ввод исполняется с клавиатуры.
Ввести натуральное n и действительное a. Вычислить S=1/a+1/a^2+1/a^4+...1/a^2n-2
1 ответ
Злата Истефеева
PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadReal('a=');
var n:=ReadInteger('n=');
var s:=1/a; // для n=1
if nlt;=1 then s+=1
else
begin
a*=a; // a^2
var z:=a;
for var i:=2 to n do
begin
s+=1/z;
z*=a
end
end;
Println(s)
end.
a= 3.73
n= 5
0.34553638581855
Pavel
Нужен python, а не pascal.
Ульяна Бандиленко
А так спасибо
Викулька
Да? И откуда следует, что нужен Питон? Вновь "Ах, извините, мой косяк!" ?
Борька Ускач
У меня дано это задание для python, а не для pascal
Александр Пшибыла
Под python я сам передела
Валера Щелковников
переделаю*
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Массовая доля целлюлозы в древесине составляет 50%. Какая масса спирта может
Химия.
помоги мне пожалуста прш
869*(61124-488*125)-50974
Математика.
по шкале высот определить ,в каком направлении происходит понижение релефа уральских гор
География.
Помогите пожалуйста написать Сочинение Овчинникова "победитель'
Литература.
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести
Разные вопросы.
Облако тегов