1.Две формулы алгебры А и В называються равносильными, если они принимают одинаковые логические значения на любом наборе значений, входящих в фурмулы элементарных высказываний.Равносильность формулы обозначают "=".
32-6-10-5=11(ч) не имеет ни коз, ни коров
Я не понимаю что вы написали
Var a:array[1..15] of integer;
i,b: integer;
begin
b:=1;
for i:=1 to 15 do readln(a[i]);
for i:=1 to 15 do if a[i] mod 2 =0 then b:=b*a[i];
writeln(b);
end.
Function G(n:integer):integer;
begin
if n=1 then G:=1
else G:=G(n-1)*n
end;
begin
Writeln(G(5))
end.
Тестовый результат
120