<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.
64 * 128 = 8192 символа в 128 строчках 8192 * 16 байт = 131072 байт = 16384 КБ = 16 мб, 1024 мб(1 ГБ) / 16 мб
= 64 страницы в 1 гб
Pascal abc.
<u>Проверка</u>
введите номер автобусного билета (6 цифр)
666666
счастливый
<span>введите номер автобусного билета (6 цифр)
123456
не счастливый<span>
</span></span>
3) цифры кол во
4) кругов в цифрах, например в 8 два круго
Остальное незнаю