Упростить (по тождествам булевой алгебры) if (А*notB) then not С

ст?

массива. (Паскаль, двумерные массивы )

похудеть.по формуле рост минус 100...

написать то легко но учитель сказал что б говорилось на сколько худеть или поправиться надо ...(( ну ни как не могу додуматься(( помогите (( вот сама написаная программа

Program Zadacha1;
Var ves, rost, optVes:integer;
Begin
write('введите массу тела');
read(ves);
write('введите рост в см');
read(rost);
optVes:=rost-100;
if ves>optVes then write('вам необходимо похудеть' );
if ves<optVes then write('вам необходимо поправиться');
if ves=optVes then write ('ваш вес оптимальный')
End.

then if x<5 then F:=0

else F:=x*x

else F:=4+x

Чему равен R после выполнения следующих операторов?

R:= -10; 0; 5

if R<0 then R:=R*R;

if R=0 then R:=R+10;

if R>0 then R:=R-100;

Выберите несколько из 4 вариантов ответа:
1) if D=10 then writeln (‘ура!’) else writeln (‘плохо…’);
2) if not (D=10) then writeln (‘ура!’) else writeln (‘плохо…’);
3) if not (D<>10) then writeln (‘ура!’) else writeln (‘плохо…’);
4) if D=10 then writeln (‘плохо…’) else writeln (‘ура!’);

завтра экзамен вроде написала а не работает
не проходите мимо кто знает паскаль пожалуйстаvar integer:n; begin string:= writeln; ('Добро пожаловать в мою программу по сочетанию цветов!') if st:=Белый then n:=('сочетается со всем. Наилучшее сочетание с синим, красным и черным.') if st:=Бежевый then n:=('с голубым, коричневым, изумрудным, черным, красным, белым. ') if st:=Серый then n:=('базовый цвет, хорошо сочетается с капризными цветами: фуксия, красный, фиолетовый, розовый, синий. ') if st:=Розовый then n:=('с коричневым, белым, цветом зеленой мяты, оливковым, серым, бирюзовым, нежно - голубым. ') if st:=Фуксия (темно – розовый) then n:=('с серым, желто-коричневым, зеленым лаймом, зеленой мятой, коричневый. ') if st:=Красный then n:=('подходит к желтым, белым, бурым, зеленым, синим и черным. ') if st:=Томатно – красный then n:=(' голубой, зеленая мята, песчаный, сливочно – белый, серый. ') if st:=Вишнево-красный then n:=('лазурный, серый, светло-оранжевый, песчаный, бледно-желтый, бежевый. ') if st:=Малиново-красный then n:=('белый, черный, цвет дамасской розы. ') if st:=Коричневый then writeln('ярко-голубой, кремовый, розовый, палевый, зеленый, бежевый. ') if st:=Светло-коричневый then n:=('бледно-желтый, кремово-белый, синий, зеленый, пурпурный, красный. ') if st:=Темно-коричневый then n:=('лимонно-желтый, голубой, зеленая мята, пурпурно-розовый, зеленый лайм. ') if st:=Рыжевато-коричневый then n:=('розовый, темно-коричневый, синий, зеленый, пурпурный. ') if st:=Оранжевый then n:=('голубой, синий, лиловый, фиолетовый, белый, черный') if st:=Светло – оранжевый then n:=(' серый, коричневый, оливковый. ') if st:=Темно –оранжевый then n:=(' бледно – желтый, оливковый, коричневый, вишнёвый. ') if st:=Желтый then n:=('синий, лиловый, светло-голубой, фиолетовый, серый, черный. ') if st:=Лимонно-желтый then n:=('вишнево-красный, коричневый, синий, серый. ') if st:=Бледно-желтый then n:=('фуксия, серый, коричневый, оттенки красного, желтовато-коричневый, синий, пурпурный. ') if st:=Золотисто-желтый then n:=('серый, коричневый, лазурный, красный, черный. ') if st:=Светло – зеленый then n:=('золотисто-коричневый, коричневый, розовый, темно-оранжевый, темно-синий, серый. ') if st:=Оливковый then n:=('апельсиновый, светло-коричневый, коричневый. ') if st:=Зеленый then n:=('золотисто-коричневый, оранжевый, салатный, желтый, коричневый, серый, кремовый, черный, сливочно-белый. ') if st:=Салатный цвет then n:=('коричневый, желтовато-коричневый, палевый, серый, темно-синий, красный, серый. ') if st:=Бирюзовый then n:=('фуксия, вишнево-красный, желтый, коричневый, кремовый, темно-фиолетовый. ') if st:=Голубой then n:=('красный, серый, коричневый, оранжевый, розовый, белый, желтый. ') if st:=Темно-синий then n:=('светло-лиловый, голубой, желтовато-зеленый, коричневый, серый, бледно-желтый, оранжевый, зеленый, красный, белый. ') if st:=Лиловый then n:=('оранжевый, розовый, темно-фиолетовый, оливковый, серый, желтый, белый. ') if st:=Темно-фиолетовый then n:=('золотисто-коричневый, бледно-желтый, серый, бирюзовый, зеленая мята, светло-оранжевый. ') if st:=Черный then n:=('Черный универсален, элегантен, смотрится во всех очетаниях, лучше всего с оранжевым, розовым, салатным, белым, красным, сиреневатым или желтым.')end.