Вычислить: p=a(a-n) (a-2n)*…*(a-n2)

Var
a, p:real; 
n, i:integer;
begin 
write('a = '); 
readln(a); 
write('n = '); 
readln(n); 
p := a;
for i := 1 to n do   
p := p * (a - i * n); 
writeln('p = ', p); 
readln;
end.

Задача 1:

Imports System
Module MainModule
    Sub Main()
        Dim a, b, h, S As Double
        Console.Write("a = ")
        a = Console.ReadLine()
        Console.Write("b = ")
        b = Console.ReadLine()
        Console.Write("h = ")
        h = Console.ReadLine()
        S = (a + b) / 2 * h
        Console.Write("S = ")
        Console.WriteLine(S)
        Console.ReadKey
    End Sub
End Module

Задача 2:

Imports System
Module MainModule
    Sub Main()
        Dim x, y As Double
        Console.Write("x = ")
        x = Console.ReadLine()
        Console.Write("y = ")
        y = Console.ReadLine()
        If (x < 0) And (y < 0) Then
            x = -x
            y = -y
        Else If (x < 0) Or (y < 0) Then
            x += 0.5
            y += 0.5
        Else If (x >= 0.5) And (x <= 2) And (y >= 0.5) And (y <= 2) Then
            x /= 10
            y /= 10
        End If
        Console.Write("x = ")
        Console.WriteLine(x)
        Console.Write("y = ")
         Console.WriteLine(y)
        Console.ReadKey
    End Sub
End Module

1) F = A v B

2) F = A ^ B

3) F = A  => B

Объяснение:

1. Поход в театр - А; в цирк - B.

F = A v B

Использовали дизъюнкцию. Мы пойдём или А, или В.

2. 15 делится на 3 и на 5

F = 15, A = 3, B = 5

F = A ^ B

Использовали конъюнкцию. 15 делится и на А, и на В.

3. Если сумма цифр числа делится на 3 без остатка, то число делится на 3.

A - сумма цифр числа делится на 3 без остатка; B - число делится на 3

F = A  => B

Использовали импликацию. Если сумма цифр числа делится на 3 без остатка, то само число делится на 3 без остатка.