Вот код программы для этой прогрессии на С# и скриншот с результатом.
float ss = 0;
float s = 1;
Console.WriteLine("Введите n");
float n = Convert.ToInt16 ( Console.ReadLine());
Console.WriteLine("---------------------------");
for (float i = 2; i <= n; i++)
{ ss = s; s -= (1 / i); Console.WriteLine(ss + "-" + 1 / i + "="+s+"\n\r"); }
Console.WriteLine("---------------------------");
Console.WriteLine("Конечный результат s = " + s);
<span> Console.ReadLine();</span>
Таблицы - во вложении.
Пустые ячейки означают, что значение переменной ещё не определено
8x(бит)=32(Мбайт)
8x(бит)=32*1024*1024*8
8x(бит)=268435456 (бит)
x(бит)=268435456 / 8
x(бит)=33554432
Program z1;
var a: string; b, c, i: integer;
begin
readln (a); writeln ();
c:= 0;
b:= lenght (a);
for<span> i</span>:=1 to<span> b </span>do
if (a[i]<span> ></span>= 'a') and (a[i]<span> <</span>= 'z') then begin
<span>write (a[i]); c </span>:=<span> c </span>+ <span>1; end;
</span>writeln (c);
end.
Надеюсь, этот вариант сработает.
Ответ:
program ideone;
uses Math;
var
n, i, j: Integer;
begin
read(n);
for i := 0 to n-1 do
begin
for j := 0 to n-1 do
begin
if (j > 0) then write(' ');
write(Min(Min(i, j), Min(n-i-1, n-j-1))+1);
end;
writeln;
end;
end.