var a: array [1..5] of integer;
i, j , count: integer;
repeated : boolean;
begin
for i := 1 to 5 do
begin
write('Введите ', i, '-e число: ');
readln(a[i]);
end;
for i := 1 to 5 do
begin
repeated := false;
for j := 1 to i - 1 do
if (a[i] = a[j]) then
repeated := true;
if repeated then continue;
count := 1;
for j:= i+1 to 5 do
if (a[i]=a[j]) then
inc(count);
writeln('Число ', a[i], ' встречается ', count,' раз');
end;
end.
num1 = float(input("Введите первое число: "))-вводиться число
num2 = float(input("Введите второе число: ")) -вводиться второе число
if num1 < num2: -если нум1 меньше нум2 тогда
print (num1, "меньше чем", num2) вывести нум1 меньше чем нум 2
if num1 > num2: - если нум1 больше чем нум2 тогда
print (num1, "больше чем", num2) вывести нум1 больше чем нум2
if num1 == num2: -если нум1 равно нум2 тогда
print (num1, "равно", num2) вывести нум1 равно нум2
if num1 != num2: -если нум1 не равно нум2 тогда
print (num1, "не равно",num2) вывести нум 1 не равно нум2
¬(A∨B)
A B A∨B ¬(A∨B)
0 0 0 1
0 1 1 0
1 0 1 0
1 1 1 0
¬A&¬B
A B ¬A ¬B ¬A&¬B
0 0 1 1 1
0 1 1 0 0
0 0 0 1 0
0 1 0 0 0
¬(AvB)=¬A&¬B - Это закон де Моргана
Объяснение: