3. На рисунке — схема дорог, связывающих пункты А, Б, В, Г, Д, Е, Ж, И, К, Л, М, Н. Сколько существует различных путей из пункта А в пункт Н, не проходящих через пункт В?
Program Pr1; uses crt; var stroka:string; i,k,x:integer; mas:array[byte] of integer; Begin clrscr; readln(stroka);
i:=1; repeat
val(stroka[i],k,x); mas[i]:=k; i:=i+1;
until i=length(stroka); x:=0; for i:=1 to length(stroka) do x:=x+mas[i]; if x=10 then writeln('TRUE') else writeln('ELSE'); end.
2 я не знаю как решать
3)
Program Pr1; uses crt; var stroka:string; i,k,x:integer; mas:array[byte] of integer; begin clrscr; readln(stroka); i:=1; while i<=length(stroka) do begin val(stroka[i],k,x); mas[i]:=k; i:=i+1; end; x:=0; for i:=1 to length(stroka) do x:=x+mas[i]; writeln(x); end.
4)
Program Pr1; uses crt; var stroka:string; i,k,x:integer; mas:array[byte] of integer; begin clrscr; readln(stroka); i:=1; while i<=length(stroka) do begin val(stroka[i],k,x); mas[i]:=k; i:=i+1; end; x:=0; for i:=1 to length(stroka)-1 do for k:=1 to length(stroka)-i do if mas[k]=mas[k+1] then x:=x+1; if x>0 then writeln('TRUE') else writeln('FALSE'); end.
19 (10cc)=2^4+2^1+2^0=10011 (2cc)
используя формулу А→В =¬А+В приводим данную формулу в условии к виду:
(X&25=0)+(X&19≠0) + (Х&A≠0)=1
рассмотрим случай, когда
(Х&25 =0) +(X&19≠0) =0 и (Х&A≠0)=1
так как 25 = 11001, то (X&25=0) = 0 (т.е. конъюнкция будет "ложь")
при Х={1; 1000; 1001; 10000; 10001; 11000; 11001}
так как 19=10011, то (Х&19≠0) = 0 при
X={100; 1000; 1100}
общее значение : Х=1000 (2сс) = 8 (10сс)
ответ 8
а я разве их не решал
но ладнооо
1)
Program Pr1;
uses crt;
var stroka:string;
i,k,x:integer;
mas:array[byte] of integer;
Begin
clrscr;
readln(stroka);
i:=1;
repeat
val(stroka[i],k,x);
mas[i]:=k;
i:=i+1;
until i=length(stroka);
x:=0;
for i:=1 to length(stroka) do x:=x+mas[i];
if x=10 then writeln('TRUE')
else writeln('ELSE');
end.
2 я не знаю как решать
3)
Program Pr1;
uses crt;
var stroka:string;
i,k,x:integer;
mas:array[byte] of integer;
begin
clrscr;
readln(stroka);
i:=1;
while i<=length(stroka) do begin
val(stroka[i],k,x);
mas[i]:=k;
i:=i+1;
end;
x:=0;
for i:=1 to length(stroka) do x:=x+mas[i];
writeln(x);
end.
4)
Program Pr1;
uses crt;
var stroka:string;
i,k,x:integer;
mas:array[byte] of integer;
begin
clrscr;
readln(stroka);
i:=1;
while i<=length(stroka) do begin
val(stroka[i],k,x);
mas[i]:=k;
i:=i+1;
end;
x:=0;
for i:=1 to length(stroka)-1 do
for k:=1 to length(stroka)-i do if mas[k]=mas[k+1] then x:=x+1;
if x>0 then writeln('TRUE')
else writeln('FALSE');
end.