Program g;
var A,B,C: real;
begin
readln(A);
C:=A; // А в степени 1
B:=A*A; // А в степени 2
A:=B*B; // А в степени 4
A:=A*B*C; // А в степени 1 на 2 на 4 = А в степени 7
writeln(A);
end.
Sqrt(x); это корень квадратный из х
Var a:array[0...6] of integer;
sum, i, N, x : integer;
begin
readln(N);
for i 1 to N do begin
sum:=0;
readln(x);
if x mod3 = 0
sum:=sum+x
end;
writln(sum);
end.
Придумайте две задачи на конъюнкцию и дизъюнкцию(с решением)
<span>пожалуйста</span>