На Паскаль абс:
var a,b:real;
begin
readln(a,b);
writeln(trunc(a)*trunc(b));
end.
#include <iostream>
int main(void)
{
int a, b; std::cin >> a >> b;
std::cout << (a % b ? "No" : "Yes") << std::endl;
return 0;
}
В задании представлены только 2 операции:
Конъюнкция (/\, *, &, логическое умножение) и дизъюнкция (\/, +, логическое сложение).
Порядок выполнения как в математике, сперва умножение (^) потом сложение (\/). И не стоит забывать что в первую очередь выполняются действия в скобках.
Таким образом:
1) (1 \/ 1) \/ (1 \/ 0) = 1 \/ 0 = 1
2) (((1 \/ 0) \/ 1) \/ 1) = ((1 \/ 1) \/ 1) = 1 \/ 1 = 1
3) (0 & 1) & 1 = 0 & 1 = 0
4) 1 & (1 & 1) & 1 = 1 & 1 & 1 = 1 & 1 = 1
5) ((1 \/ 0) & (1 & 1)) & (0 \/ 1) = (1 & 1) & 1 = 1 & 1 = 1
6) ((1 & 1) \/ 0) & (0 \/ 1) = (1 \/ 0) & 1 = 1 & 1 = 1
7) ((0 & 0) \/ 0) & (1 \/ 1) = (0 \/ 0) & 1 = 0 & 1 = 0
8) (A \/ 1) \/ (B \/ 0) = 1 \/ B = 1
9) ((1 & A) \/ (B & 0)) \/ 1 = (A \/ 0) \/ 1 = A \/ 1 = 1
10) 1 \/ A & 0 = 1 \/ 0 = 1
Const n=10;
var a:array[1..n] of real;
i,k1,k2:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=10*random-5;
write(a[i]:5:2,' ');
end;
writeln;
k1:=0; k2:=0
for i:=1 to n do
if a[i]>0 then k1:=k1+1 else k2:=k2+1;
writeln('k1 = ',k1,' k2 = ',k2);
end.
Пример:
Массив A:
-4.38 -2.39 -0.58 1.36 2.48 -4.49 -3.41 -0.04 0.20 2.94
k1 = 4 k2 = 6