Есть ответ 👍

1. даны числа от 1 до n.найти s: 1/2+1/3+…+1/n

225
323
Посмотреть ответы 2

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


var

i,n: integer;

s: real;

begin

repeat

write ('n = '); readln(n);

until (n> 0);

s: =0;

for i: =1 to n do s: =s+1/i;

writeln ('s = ',s: 0: 4);

readln;

end.

вано138
4,4(41 оценок)

V=d*i*t*s - формула t - длительность звучания файла. s - количество каналов звучания. v - объём звукового файла i = 8 бит. d = 8 кгц.

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