2 - логическая операция, которая объединяет два высказывания в одно новое, которое будет являться истинным тогда и только тогда, когда оба исходных высказывания ложны.
3 - Конъюнкция
4 - X И Y И Z
5 - OR
6 - 1. Инверсия;
2. Конъюнкция;
3. Дизъюнкция;
4. Импликация;
5. Эквивалентность.
7 - логическая операция, которая преобразует исходное высказывание в новое, значение которого противоположно исходному.
8 - Импликация
9 - логическая операция, которая объединяет два высказывания в одно новое, которое будет являться истинным тогда и только тогда, когда оба исходных высказывания истинны
function IsNice(n:longint):boolean; // Отвечает на вопрос, является ли число красивым var d,nd,sd:byte; begin sd:=0; nd:=0; repeat d:=n mod 10; sd:=sd+d; Inc(nd); n:=n div 10 until n=0; IsNice:=(sd mod nd = 0) end;
var i,n,k:longint; begin Write('Порядковый номер "красивого" числа: '); Read(n); i:=1; k:=0; repeat if IsNice(i) then Inc(k); if k<>n then Inc(i) until k=n; Writeln('Красивое число равно ',i) end.
Тестовое решение: Порядковый номер "красивого" числа: 15 Красивое число равно 20
1 - True/False
2 - логическая операция, которая объединяет два высказывания в одно новое, которое будет являться истинным тогда и только тогда, когда оба исходных высказывания ложны.
3 - Конъюнкция
4 - X И Y И Z
5 - OR
6 - 1. Инверсия;
2. Конъюнкция;
3. Дизъюнкция;
4. Импликация;
5. Эквивалентность.
7 - логическая операция, которая преобразует исходное высказывание в новое, значение которого противоположно исходному.
8 - Импликация
9 - логическая операция, которая объединяет два высказывания в одно новое, которое будет являться истинным тогда и только тогда, когда оба исходных высказывания истинны
10 - Конъюнкция
11 - ?
12 - ?
Объяснение:
function IsNice(n:longint):boolean;
// Отвечает на вопрос, является ли число красивым
var
d,nd,sd:byte;
begin
sd:=0; nd:=0;
repeat
d:=n mod 10;
sd:=sd+d; Inc(nd);
n:=n div 10
until n=0;
IsNice:=(sd mod nd = 0)
end;
var
i,n,k:longint;
begin
Write('Порядковый номер "красивого" числа: '); Read(n);
i:=1; k:=0;
repeat
if IsNice(i) then Inc(k);
if k<>n then Inc(i)
until k=n;
Writeln('Красивое число равно ',i)
end.
Тестовое решение:
Порядковый номер "красивого" числа: 15
Красивое число равно 20