Var
i,n:integer;
s:real;
begin
writeln('Введите n');
readln(n);
for i:=1 to n do
s:=s+(1/i);
writeln(s);
<span>end.</span>
3Кб=3*1024=3072байта
3Кб=3*1024*8=24576бита
<em>// PascalABC.NET 3.2, сборка 1383 от 09.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<em>Задача 1</em>
begin
Writeln('S=',Range(1,ReadInteger('N=')).Sum(x->x*x))
end.
<u>Пример</u>
N= 10
S=385
<em>Задача 2</em>
begin
Writeln('S=',Range(1,99,2).Sum)
end.
<u>Результат</u>
S=2500
Ответ:
Процесс превращения непрерывного сигнала в цифровой, путем измерения числовыз значений амплитуда сигнала через равные интервалы времени