1. Конъюнкция
2. Дизъюнкция
3. Инверсия
4. Импликация
5. Эквиваленция
Я не знаю, в каком порядке приложение распределит фото, но надеюсь, что всё понятно
Var
a, b, c: integer;
begin
readln(a, b, c); //вводим a b c
if a > 0 then writeln(a*a) //если a > 0 вывести квадрат a
else
writeln(a); //иначе вывести a
if b > 0 then writeln(b*b) //если b > 0 вывести квадрат b
else
writeln(b); //иначе вывести b
if c > 0 then writeln(c*c) //если c > 0 вывести квадрат c
else
writeln(c); //иначе вывести c
<span>end.</span>
Var a,b,c,min:integer;
begin
write('Введите a: ');
readln(a);
min:=a;
write('Введите b: ');
readln(b);
if b<min then min:=b;
write('Введите c: ');
readln(c);
if c<min then min:=c;
writeln('Наименьшее: ',min);
<span>end.
Для VBA
Sub Z()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim min As Integer
</span>a = InputBox("Введите A: ")<span>
min = a
b = InputBox("</span>Введите <span>B: ")
If b < min Then min = b
c = InputBox("</span>Введите <span>C: ")
If c < min Then min = c
MsgBox ("Наименьшее: " & min)
End Sub
Для наибольшего
</span>Sub Z()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim max As Integer
a = InputBox("Введите A: ")
max= a
b = InputBox("Введите B: ")
If b > max Then max = b
c = InputBox("Введите C: ")
If c > max Then max = c
MsgBox ("Наибольшее: " & max )
End Sub
Правила техники безопасности,
Правила информационной безопасности
Правила пожарной безопасности (эвакуация, отключение оборудования)
Трудовой договор
Program n1;
var a,b: real;
begin
readln(a,b);
writeln('S=',a*b);
write('P=',(a+b)*2);
end.