1.
В задании скорее всего перепутано и нужно найти значение переменной D т.к. значение B не меняется и постоянно будет равно 18.
переменная D = 4, цикл выполнится 4 раза.
8. Нет алгоритама для решения
16. фрагмент схемы: программа находит произведение отрицательных элементов массива
с помощью условия Хi<0 определяется отрицательный элемент
само произведение вычисляется и хранится черех переменную R
<span>var a,b: integer;
function NOD(x,y: integer): integer;
begin
if x<>0 then NOD:=NOD(y mod x,x) else NOD:=y;
end;
</span><span>begin
readln(a,b);
writeln( 'НОД = ', NOD(a,b) );
end.</span>
//так и не осознала как вводить функции с клавиатуры. Спрошу у учителя.
var b1,b2,b:boolean;
function imp(a, b : boolean) : boolean;
begin
imp:=(not a) or b;
end;
begin;
writeln('Implication');
For b1:=false to true do
For b2:=false to true do
writeln(b1:7,b2:7,imp(b1,b2):7);
writeln('not (x) or y');
For b1:=false to true do
For b2:=false to true do
writeln(b1:7,b2:7,((not b1) or b2):7);
For b1:=false to true do
For b2:=false to true do
if imp(b1,b2)<>((not b1) or b2) then
begin;
writeln('Не эквивалентны');
exit;
end;
writeln('Эквивалентны');
<span>end.</span>