По разделам



Задача While 14


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

Код (C/C++)

#include <stdio.h>
int main(void)
{
   float a;
   printf("A:");
   scanf ("%f", &a);
   int k=0;
   float temp=0;
   while (temp<=a) {
       ++k;
       temp+=1/(float)k;
   }
   printf("K: %i\nSum:%f\n",k-1,temp-1/(float)k);
   return 0;
}

Код (Python)

import random

A = random.randrange(2,10)
A = 7
print('A = ', A)

K = 1.0
S = 1.0
while S+1/(K+1) < A:
    K += 1
    x = 1/K
    S += x
    print("K = {0}, 1/K = {1}, S = {2}".format(K,x,S))

print()
print("K = {0}, S = {1}".format(K,S))
print("K+1 = {0}, S_next = {1}".format(K+1,S+1/(K+1)))
									

Код (Pascal)

program While14;
var
  Temp:Real;
  A,K :Integer;
begin
  Write('Введите A: ');
  Readln(A);
  K:=0;
  Temp:=0;
  while Temp<=A do
  begin
   inc(K,1);
   Temp:=Temp+1/K;
  end;
  Writeln(K-1,' ',Temp-1/K);
end.
									




While. Абрамян
While 1 Просмотров: 27
While 2 Просмотров: 21
While 3 Просмотров: 14
While 4 Просмотров: 25
While 5 Просмотров: 18
While 6 Просмотров: 18
While 7 Просмотров: 13
While 8 Просмотров: 13
While 9 Просмотров: 15
While 10 Просмотров: 15
While 11 Просмотров: 17
While 12 Просмотров: 47
While 13 Просмотров: 13
While 14 Просмотров: 17
While 15 Просмотров: 17
While 16 Просмотров: 21
While 17 Просмотров: 15
While 18 Просмотров: 18
While 19 Просмотров: 17
While 20 Просмотров: 27
While 21 Просмотров: 22
While 22 Просмотров: 19
While 23 Просмотров: 20
While 24 Просмотров: 14
While 25 Просмотров: 17
While 26 Просмотров: 13
While 27 Просмотров: 11
While 28 Просмотров: 16
While 29 Просмотров: 13
While 30 Просмотров: 14

Комментарии

Чтобы написать комментарии вам нужно войти в систему или зарегистрироваться