Паскаль !
1) Используя процедуру, создайте из четных символов строки st1 строку str2 и из нечетных символов - строку str3.
2) Составить программу, подпрограмма которой выведет на экран отсортированный массив по следующему принципу: сначала отрицательные значения, затем нули, последним положительные значения массива.
Конъюнкция - это сложное логическое выражение, которое считается истинным в том и только том случае, когда оба простых выражения являются истинными, во всех остальных случаях данное сложеное выражение ложно.
Обозначение: F = A & B.
Таблица истинности для конъюнкции
A&B=F
1&1=1
1&0=0
0&1=0
0&0=0
2) Логическое сложение или дизъюнкция (логическое ИЛИ):
Дизъюнкция - это сложное логическое выражение, которое истинно, если хотя бы одно из простых логических выражений истинно и ложно тогда и только тогда, когда оба простых логических выраженныя ложны.
Обозначение: F = A + B.
Таблица истинности для дизъюнкции
A+B=F
1+1=1
1+0=1
0+1=1
0+0=0
3) Логическое отрицание или инверсия (логическое НЕ):
Инверсия - это сложное логическое выражение, если исходное логическое выражение истинно, то результат отрицания будет ложным, и наоборот, если исходное логическое выражение ложно, то результат отрицания будет истинным. Другими простыми слова, данная операция означает, что к исходному логическому выражению добавляется частица НЕ или слова НЕВЕРНО, ЧТО.
Таблица истинности для инверсии
A неА
1 0
0 1
1:
var N,k,s:integer;
BEGIN
s:=0;
readln(N,k);
N:=abs(N);
while N>0 do begin
if (N mod 10=k) then
s:=s+1;
N:=N div 10;
end;
writeln(s);
end.
2:
var N:integer;
s:string;
BEGIN
readln(N);
s:=IntToStr(N);
if (s[1]=s[Length(s)]) then
writeln('ДА') else
writeln('НЕТ');
end.
3:
var N,p,s,k:integer;
BEGIN
readln(N);
p:=1;
s:=0;
k:=0;
while N>0 do begin
p:=p*(N mod 10);
s:=s+(N mod 10);
k:=k+1;
N:=N div 10;
end;
writeln('Количество цифр = ',k);
writeln('Сумма цифр = ',s);
writeln('Произведение цифр = ',p);
end.