Регистрация
ponomarevaaaaaaaaaa
10.08.2022 12:40
Информатика
Есть ответ 👍

Напишите функцию sum вида function sum(n: integer): real, которая вычисляет и возвращает следующую сумму: 1+1/2+1/+1/n

167
450
Посмотреть ответы 3

Ответы на вопрос:

mrrur99
mrrur99
4,6(35 оценок)
Function sum(n: integer): real; var a: real; begin a: =1; for n: = 2 to n do a: =a+(1/n); sum: =a end; var n: integer; begin write('n = '); readln(n); write(sum(n)) end.
aboderu
aboderu
4,5(20 оценок)
Var n,i: integer; s: real; function sum(n: integer): real; begin if n=1 then   sum: =1 else sum: =(1/n)+sum(n-1); end; begin writeln('n='); readln(n); writeln('sum=',sum(n)); readln; end.
Лизуша111авм
Лизуша111авм
4,6(69 оценок)

function decbin(n: int64): int64;

var k,m: int64;

    priz: boolean;

begin

  k: =1;   m: =0;

  priz: =true;

  repeat

    if (n mod 10)> 1 then

    begin

      writeln('недопустимый ввод - цифра ',n mod 10);

      priz: =false;

      break;

    end;      

    m: =m+k*(n mod 10);

    n: =n div 10;

    k: =k*2;  

  until n=0;  

  if priz then decbin: =m

  else decbin: =-1;

end;

// основная программа

var n,k: int64;

begin

  repeat

    readln(n);

    if n=0 then break

    else

    begin

      k: =decbin(n);

      if k> 0 then writeln('десятичное число: ',k);

    end;  

  until false;  

end.

1011100011210

недопустимый ввод - цифра 2

11101101

десятичное число: 237

11111111

десятичное число: 255

0

Популярно: Информатика