Const N = 7; Var A:array[0..N] of real; i:integer; Begin WriteLn('N = ',7); For i:= 0 to N-1 do Begin A[i]:=power(2,i); WriteLn('2^',i,' = ',A[i]) End; End.
ABC.net: Var A:array of real; N,i:integer; Begin Write('N = ');ReadLn(N); A:=new real[N]; For i:= 0 to N-1 do Begin A[i]:=power(2,i); WriteLn('2^',i,' = ',A[i]) End; End.
При логическом "и" значение истинно, если оба элемента являются истиной. Все остальное - ложь. Соответственно, чтобы высказывание "А и (Париж - столица Франции)" было истинным, нужно, чтобы оба элемента возвращали истину (логическая единица). Париж - столица Франции - истинно. А - истинно, т.е. А = 1. Для того, чтобы высказывание возвращало ложь, нужен хотя бы один логический ноль. Поскольку "Париж - столица Франции" - это 1, то B = 0. При логическом "или" значение истинно, если присутствует хотя бы одна единица. Значит C = 1, D = 0
При логическом "и" значение истинно, если оба элемента являются истиной. Все остальное - ложь. Соответственно, чтобы высказывание "А и (Париж - столица Франции)" было истинным, нужно, чтобы оба элемента возвращали истину (логическая единица). Париж - столица Франции - истинно. А - истинно, т.е. А = 1. Для того, чтобы высказывание возвращало ложь, нужен хотя бы один логический ноль. Поскольку "Париж - столица Франции" - это 1, то B = 0. При логическом "или" значение истинно, если присутствует хотя бы одна единица. Значит C = 1, D = 0
Const
N = 7;
Var
A:array[0..N] of real;
i:integer;
Begin
WriteLn('N = ',7);
For i:= 0 to N-1 do
Begin
A[i]:=power(2,i);
WriteLn('2^',i,' = ',A[i])
End;
End.
ABC.net:
Var
A:array of real;
N,i:integer;
Begin
Write('N = ');ReadLn(N);
A:=new real[N];
For i:= 0 to N-1 do
Begin
A[i]:=power(2,i);
WriteLn('2^',i,' = ',A[i])
End;
End.