По разделам



Задача While 13


Дано число 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,temp);
   return 0;
}

Код (Python)

import random

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

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

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

Код (Pascal)

program While13;
var
  Temp, A:Real;
  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,' ',Temp);
end.
									




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

Комментарии

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