Var
n,k,s,d:longint;
begin
Write('Введите натуральное число: ); Readln(n);
s:=0; k:=0;
while n<>0 do begin
d:=n mod 10;
Inc(k);
s:=s+d;
n:=n div 10
end;
Writeln('Количество цифр равно ',k,', сумма цифр равна ',s)
end.
<em><u>Тестовое решение:</u></em>
Введите натуральное число: 157832
Количество цифр равно 6, сумма цифр равна 26
Знаю только то, что передача каждого байта и бита контролируется. И передается все побайтно. Видимо, ответ: Верно.
8x + 184 = 16x
-8x = -184
x = 23
Ответ: 23 символа.
Program data ;
Uses CRT;
var n:integer;
begin
ReadKey;
Writeln('3 июля');
<span>end.</span>
При решении этого задания надо знать:
A≡B =A*B+¬A*¬B (***)
таблицы истинности:
A B A≡B A+B A*B
0 0 1 0 0
0 1 0 1 0
1 0 0 1 0
1 1 1 1 1
--------------------------------
C учётом формулы (***) представим восьмое (последнее) уравнение в виде:
(x8≡x9)+(x8≡x10)=0; лог. сложение =0, когда оба слагаемых =0;
0' ≡ 1 + 0'≡ 1 = 0 - при х10=1 возможно 1 решение
х8=0 х9 =1
1' ≡ 0 + 1'≡ 0 = 0 - при х10 =0 возможно 1 решение
х8=1 х9=0
подставим полученные решения в седьмое (предпоследнее) уравнение:
(х7≡х8)+(х7≡х9) = 1
0 ' ≡0+ 0' ≡ 1 =1 имеем четыре решения х7 х8
1'≡ 0 + 1'≡ 1 =1 0 0
--------------------------- 0 1
0' ≡ 1 + 0' ≡ 0 =1 1 0
1' ≡ 1 +1 ' ≡ 0 =1 1 1
----------------------------------------------------------------------------------
подставляя из в шестое (сверху) уравнение, действуя аналогичным образом, можно убедиться, что решений (х6 ; х7) станет шесть , их надо подставить в пятое ур=е и тд.
--------------------------------------------------------
№уравнения 8 7 6 5 4 3 2 1
кол. решений 2 4 6 8 10 12 14 16
Ответ 16