Паскаль АВС:
Program Vareeenka;
uses crt;
var
x,y:real;
begin
writeln('*** Alphaeus is thinking... ***');
writeln('*** OK ***');
writeln();
write('Введите основание степени '); readln (x);
write('Введите показатель степени '); readln (y);
writeln('*** Вычисляю... ***');
writeln(power(x,y):8:2); ;
end.
Конъюнкция - логическая операция, истинная только при наборе 1 1.
Из данной таблицы истинности следует, что это инверсия конъюнкции. Следовательно, правильный ответ под буквой В.
Var r:array[1..3,1..3] of integer;i,j,n,k,sum:integer; b:array[1..30]of integer;beginrandomize;writeln('Исходная матрица: ');for i:=1 to 3 dobeginfor j:=1 to 3 dobeginr[i,j]:=random(15)-5;write(r[i,j]:3);end;writeln;end;// cумма диагоналиwriteln;for i:=1 to 3 dobeginfor j:=1 to 3 dobeginif i=j then beginwrite(r[i,j]:3);sum:= sum + r[i,j];end elsewrite(' ':3);end;writeln;end;writeln(sum);end.
1. На кой такие сложности не ясно. Коды символов идут по порядку русских на сколько я помню,
2. Отладка в этом случае должна помоч. Вводи алфавит и смотри результат, должен быть сдвиг на ключ.