var
N,sum,k: integer;
begin
sum:=0;
WriteLn('Введите N');
readln(N);
while N <=9 do
begin
writeln('Введите корректное число (больше или равное 10)');
readln(N);
end;
while N >=10 do
begin
k:= N mod 10;
N:= N div 10;
sum:= sum + k;
end;
sum:=sum + N;
write('Первая цифра числа ');
writeln(N);
write('Сума цифр числа ');
writeln(sum);
end.
6 бит на символ так как 2 в степени 6 = 64;
50 байтов = 400 бит;
2000 символов = 12000 бит;
время = 12000/400 = 30 секунд
1121 - нет, сумма двух цифр в восьмеричной системе не больше 16, поэтому 21 быть не может
73 - нет, полученные суммы записаны не по порядку (либо получившиеся суммы 0 и 73, чего тоже не может быть)
112 - например 50, 51
28 - в восьмеричной системе счисления нет цифры 8
26 скорее всего, учили когда-то
Если убрать во writeln лишнюю закрывающую скобку, то на экране будет выведено
n=6p=96