<span>//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)</span>
begin
var n:=ReadInteger('Введите n-> ');
for var i:=1 to n do
Writeln((1+i)/(2+i):0:2);
end.
Пример:
Введите n-> 5
0.67
0.75
0.80
0.83
0.86
Надежда умирает последней, мальчик мой
Var a:integer;
begin
writeln ('a=');
readln(a);
if a mod 5=0 then writeln ('Yes ',a/5) else writeln('NO ', 5*a);
readln;
<span>end</span>
1)32768 бит /8 (чтобы узнать сколько байтов)=4096 байт
2)4096/1024=4 килобайт