private static void PrintSomeNumbers(int start_number, int count, int step)
{
Debug.Assert(count > 0);
for (var i = 0; i < count; i++)
{
for (var j = 0; j <= i; j++)
Console.Write(start_number + i + " ");
Console.WriteLine();
for (var j = 0; j <= i; j++)
Console.Write(start_number + i + step + " ");
Console.WriteLine();
}
}
полный код в приложении
PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018
Внимание! Если программа не работает, обновите версию!
procedure Foo;
begin
var k:integer;
Read(k);
if k<>0 then begin Foo; Print(k) end
end;
begin
Foo;
end.
16 =
![2^{i}](https://tex.z-dn.net/?f=+2%5E%7Bi%7D+)
i = 4 (кол-во бит на одну букву)
4 * 5 = 20 бит (объем информации одного слова)
20 * 8000 = 160000 бит / 8 = 20000 байт
Ответ :
20000 байт
Var s,h:integer;
begin
a:=5;
for x:=2 to 9 do writeln(x,'x',a,'=',x*a);
end.