Program z1;
var stroka:string;
var i:integer;
begin
writeln('Введите строку');
readln(stroka);
for i:=1 to length(stroka) do
begin
if(stroka[i]='1') then
stroka[i]:='0'
else if(stroka[i]='0') then
stroka[i]:='1';
end;
writeln(stroka);
<span>end.</span>
Вместо переменных A и B нужно подставить нули и единицы, всего в данном случае возможно 4 различных комбинации (A=0 и B=0; A=0 и B=1; A=1 и B=0; A=1 и B=1).
Для простоты понимания знак «ᴠ» можно представить как знак сложения «+», знак «&» как знак умножения «*», а черточка над знаком обозначает отрицание, т.е. противоположное значение ( отрицание нуля равно единице, отрицание единицы равно нулю).
Таким образом можно преобразовать выражение. Например, под буквой Б вместо A&(AvB) записать A*(A+B) и начать подставлять нули и единицы и заполнять таблицу:
A B AvB ( или A+B) A&(AvB) ( или A*(A+B) )
0 0 0 0
0 1 1 0
1 0 1 1
1 1 1 1
Под остальными буквами порядок действий проставлен правильно и действовать нужно по аналогии.
program raf105;
var a,sum: integer;
begin
writeln('Вводите числа по очереди');
writeln('Чтобы закончить введите 0');
repeat
readln(a);
if (a mod 8 = 0) and (a mod 10 = 6)
then sum+= a;
until a = 0;
writeln('Сумма: ',sum);
end.
<h3><u>PascalABC 3.4.2</u></h3>
идентификация
уточняющая, опознающая
распознает, классифицирует, отождествляет
помогает распознать нужную информацию
сопоставление
Для алфавита из 256 символов на один символ нужно 8 бит. Это 1 байт. Значит на строку 64 байта. Количество байт на странице 32*64=2048. Разделим на 1024 и получим объем одной страницы в килобайтах - 2 кб. А у нас 20 кб, значит страниц 10.
Ответ: 10 страниц.