Для того, чтобы в тексте все буквы а поменять на буквы б, необходимо жмякнуть ctrl+c "а" ctrl+v "б"
/ - разделить
* - умножить
i = 8 бит = 1 байт
Объем одной страницы T = 40*60*1 байт = 2400 байт
Объем доступной памяти M = 16 Кбайт = 16 * 1024 байт = 16384 байт
Кол-во страниц S = M / T = 16384 байт / 2400 байт = 6.8266666666666
Поскольку страниц может быть только целое число и больше чем есть не впихнешь, то округляем до целых в меньшую сторону
S = 6
Извиняюсь за полусишный код
procedure swap(var a:integer; var b;integer)
var c:integer;
begin
c := a; a := b; b := c;
end;
function nod(a, b:integer):integer;
begin
while b <> 0 do
begin
writeln(a, ' ', b); // тут трассировка выводится
a = a mod b; swap(a, b);
end
end;
begin
writeln(nod(128,56));
end.
1) логическая функция, зависящая от 7 (семи) переменных имеет
2^7=128 строк в таблице истинности.
2) в 6-ти cтроках F=0 и G=0 ---> F∩G=0
в 1-ой строке F=1 и G=1 -----> F∩G=1
в остальных строках F и G имеет различные значения:
(F=1 и G=0) или (F=0 и G=1) ----> F∩G=0
3) из 128 строк
всего в одной F∩G=1, в остальных F∩G=0 ---->
128-1 =127 (в 127 строках F∩G=0)
ответ: 127