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.
Ответ:
1101 (2) -> 1*2^0 + 2^2+2^3 = 1+4+8 = 13
8 (16) -> 8 (10)
13 + 8 = 21
21 (10) -> 10101 (2)
По горизонтали: 1. Файл. 3. Хранения. 5. Оперативная. 7. Фотография. 8. Бумага. 10. Китай. 11. Пергамент.По вертикали: 1. Фонограф. 2. Береста. 4. Долговременная. 6. Информация. 9. Папирус.
Могут, массив этот вещественных чисел, разве там не может хранится 1?