X2 -> S1
X1 & -X2 -> S2
-X1 & X2 -> -S2
S1 | S2 -> X1 | X2
| - дизъюнкция, & - конъюнкция, -> - импликация
Программное обеспечение компьютера - это <em>совокупность программ</em>, которые хранятся на всех устройствах долговременной памяти компьютера.
Программное обеспечение (ПО) делится на следующие типы:
- системное ПО;
- прикладное ПО;
- системы программирования.
<u><em>Программа в PascalABC.Net:</em></u>
const
digits=['0','1','2','3','4','5','6','7','8','9'];
var
s:string;
n,i,err:integer;
isdigit:boolean;
begin
Write('Введите натуральное число (1-9999): ');
Read(s);
i:=1;
isdigit:=True;
n:=Length(s);
repeat
isdigit:=isdigit and (s[i] in digits);
Inc(i)
until (not isdigit) or (i>n);
if isdigit then
begin Val(s,n,err); Writeln('Введено корректное число ',n) end
else Writeln('Число содержит нецифровой символ')
end.
<em><u>Отметим, что в PascalABC.Net в реальной жизни решение могло бы выглядеть так:</u></em>
var
s:string;
n,err:integer;
begin
Write('Введите натуральное число (1-9999): ');
Read(s);
Val(s,n,err);
if err=0 then Writeln('Введено корректное число ',n)
else Writeln('Число содержит нецифровой символ')
end.
Используем закон де Моргана, закон двойного отрицания, идемпотентность. Получаем A+B. Подробное решение во вложении.
Var
n:longint;
i,d,dmax:byte;
a:array[0..9] of byte;
begin
Writeln('Введите натуральное число (1..2147483647): ');
Read(n);
for i:=0 to 9 do a[i]:=0;
dmax:=0;
while n>0 do begin
d:=n mod 10;
if dmax<d then dmax:=d;
Inc(a[d]);
n:=n div 10
end;
Writeln('Максимальная цифра ',dmax,' встречается ',a[dmax],' раз(а)')
end.
<em><u>Тестовое решение:</u></em>
Введите натуральное число (1..2147483647):
235636634
Максимальная цифра 6 встречается 3 раз(а)
