Вывести наибольшее из целых чисел К, для которых сумма 1+1/2+.+1/K будет меньше А, и саму эту сумму

@Temnota · Регистрация: 18.03.2013

Здравствуйте, помогите пожалуйста написать программы на языке паскаль.Заранее благодарю.

2) Дано число А(>1). Вывести наибольшее из целых чисел К, для которых сумма 1+1/2+.....+1/K будет меньше А, и саму эту сумму.

@BAAAAAas · 12.05.2013, 22:12

Pascal

uses crt;
var a,s,t:real;
    k:integer;
begin
clrscr;
repeat
write('Введите число a=');
readln(a);
until a>1;
s:=0;
k:=0;
while s<a do
 begin
  k:=k+1;
  s:=s+1/k;
 end;
s:=s-1/k;
k:=k-1;
write('K=',n,' сумма=',s:0:2);
readln
end.

@Temnota 0 / 0 / 0 Регистрация: 18.03.2013 Сообщений: 10
		1
	Вывести наибольшее из целых чисел К, для которых сумма 1+1/2+.+1/K будет меньше А, и саму эту сумму 12.05.2013, 20:59. Показов 2523. Ответов 1 Метки нет (Все метки) Здравствуйте, помогите пожалуйста написать программы на языке паскаль.Заранее благодарю. 2) Дано число А(>1). Вывести наибольшее из целых чисел К, для которых сумма 1+1/2+.....+1/K будет меньше А, и саму эту сумму. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Вывести наибольшее из целых чисел К, для которых сумма 1+1/2+.+1/K будет меньше А, и саму эту сумму

Решение