Ответ:
Объяснение:
// Возведение в степень
program stepen;
var
p,i,n, a:integer;
begin
write('введите число и степень');
readln(a,n);
p:=1;
for i:=1 to n do p:=p*a;
writeln('Число ',a, ' в степени ',n,' = ',p);
readln;
end.
//Сумма нечетных цифр числа
program project1;
var
a, b, s : integer;
begin
s := 0;
write('введите число: ');
readln(a);
while a <> 0 do
begin
b := a mod 10;
if b mod 2 <> 0 then s := s + b;
a := a div 10
end;
writeln('сумма нечетных цифр: ', s);
readln;
end.
//Сумма четных чисел до n
program summach;
var
S,n,i:integer;
begin
Write('Введите n=');
readln(n);
if n mod 2<>0 then n:=n-1;
n:=n div 2;
s:=0;
for i:=1 to n do
s:=s+2*i;
writeln('s=',s);
readln;
end.
//===================================
// сумма четных с циклом repeat
program summach1;
Write('Введите n=');
readln(n);
if n mod 2<>0 then n:=n-1;
s:=0;i:=1;
repeat
s:=s+2*i;
i:=i+1;
until 2*i>n ;
writeln('n=',n);
writeln('s=',s);
readln;
Родовое понятие-знак, а видовое это-буква,цифра,дорожный знак,знак препинания,знак арифметического действия и иероглиф
3) 1)
¬( (A*¬B)+(B*¬C) ) = (¬A*¬B)+(¬A*C)+(B*C) ?
¬(A*¬B) *¬(B*¬C) = ¬A¬*B+¬A*C+B*C ?
(¬A+B)*(¬B+C) = ¬A*¬B+¬A*C+B*C ?
¬A*¬B+¬A*C+B*C = ¬A*¬B+¬A*C+B*C доказано
3) 2)
(A*B)+¬(A*¬C) = (A*B)+A+¬C ?
A*B+¬A+C = A(B+1) +¬C ?
¬A+C ≠ A+¬C не равносильны
4) 1)
F=A*B*¬C + A*B*C + A*B
F=A*B*(¬C+C+1)
F=A*B
4) 2)
F= (A*B+A*B*¬C+B*¬C+C)*( ¬C+A*C+¬A*B*¬C)
F=( A*B*(1+¬C)+ B+C) * (¬C*(1+¬A*B)+A*C)
F=(A+C) * (A+¬C)
F=A+A*¬C+A*C
F=A
5)
X=?
¬(X+A)+¬(X+¬A)=B
¬X*¬A+¬X*A=B
¬X*(¬A+A)=B
¬X=B
X=¬B
Ответ:
№2 - ответ 11
Объяснение:
3 - это кол-во клеток сверху и снизу
5 - это кол-во клеток посередине
P=3+5+3=11
Самое простое, заполнить только четные элементы, т.к. в нечетных по умолчанию уже ноль стоит))
DIM A(15)
FOR I = 2 TO 15 STEP 2
A(I) = 1
NEXT I
Если нужно увидеть массив, можно дополнить блоком вывода
FOR I = 1 TO 15
PRINT A(I)
NEXT I
Ну, а если явным образом вписывать нули, то тогда так
DIM A(15)
FOR I = 1 TO 15 STEP 2
A(I) = 0
NEXT I
FOR I = 2 TO 15 STEP 2
A(I) = 1
NEXT I