<em>// PascalABC.NET 3.2, сборка 1447 от 22.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<em>1. Современная запись</em>
begin
var n:=ReadInteger('n=');
(var s,var i):=(0.0,1);
while i<=n do (i,s):=(i+1,s+1/i);
Writeln('S=',s)
end.
<u>Пример</u>
n= 5
S=2.28333333333333
<em>2. Школьная запись</em>
var
i,n:integer;
s:real;
begin
Write('n='); Read(n);
i:=1;
s:=0;
while i<=n do begin
s:=s+1/i;
i:=i+1
end;
Writeln('S=',s)
end.
Задача 1
Дано:
K = 16 * 32 * 25 шт = 12800 шт
i = 16 бит
I - ?
Решение:
I = K * i (K - кол-во символов, i - вес одного символа/бит на символ)
Вес текста I = K * i = 12800 * 16 бит = 204800.0 бит
204800.0 бит = 25600.0 байт = 25.0 Кбайт
Каждый человек желает знать где берут мозоль
Program n1;
var a,k: integer;
begin
readln(a);
k:=0;
while (a<>0) do
begin
if(a mod 5=0) or (a mod 7=0) then
k:=k+1;
readln(a);
end;
writeln(k);
end.