Всего команда 16.
N = 16
i = 4
Информация об одной команда - 4 бита.
Ответ: 4 бита информации
Вот.................................................
// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017
1)
begin
var n:=ReadInteger('Введите n-> ');
var s:=0;
for var i:=1 to n do
s+=i*i;
Println('Сумма:',s);
end.
Пример:
Введите n-> 3
Сумма: 14
2)
begin
var n:=ReadInteger('Введите n-> ');
var s:=1;
for var i:=1 to n do
s*=i;
Println('Сумма:',s);
end.
Пример:
Введите n-> 3
Сумма: 6
program Digits;
procedure foo(a: integer);
begin
if a = 0 then exit
else
foo(a div 10);
Print(a mod 10)
end;
var
a: integer;
begin
a := 12345;
foo(a)
end.