Пример на продукте - бананы
program v1;
var m,n,sum,t:integer;
st1:string[10];
begin
sum:=0; t:=0;
writeln('Здравствуйте');
writeln('Банан красного цвета стоит 2500, банан синего цвета стоит 3000, банан черного цвета стоит 3700');
writeln('Сколько купите бананов '); readln(n);
writeln('Введите цвет бананов '); readln(st1);
if (st1='Красного') or (st1='красного') or (st1='Красный') or (st1='красный') then sum:=3000*n;
if (st1='Синего') or (st1='синего') or (st1='Синий') or (st1='синий') or (st1='Синей') or (st1='синей') then sum:=2500*n;
if (st1='Черного') or (st1='черного') or (st1='Чёрного') or (st1='чёрного') or (st1='Черный') or (st1='черный') or (st1='чёрный') or (st1='Чёрный') then sum:=3700*n;
writeln('Сумма покупки ', sum);
writeln('Введите сумму'); readln(m);
t:=m-sum;
writeln('Возьмите сдачу ',t);
writeln('Всего доброго, приходите еще');
end.
Объяснение:
V - это знак "ИЛИ"
& - знак "И"
Действия тут выполняются как в математике:
Сначала умножение (знак &), потом сложение (знак V)
Ну или сначала в скобках действия выполняются.
Для этого есть специальная таблица:
0 v 0 = 0
0 v 1 = 1
1 v 0 = 1
1 v 1 = 1
0 & 0 = 0
0 & 1 = 0
1 & 0 = 0
1 & 1 = 1
2)
(((1 v 0) v 1) v 1)
1 v 0 = 1
1 v 1 = 1
1 v 1 = 1
ответ: 1
7)
((0 & 0) v 0) & (1 v 1)
0 & 0 = 0
0 v 0 = 0
1 v 1 = 1
0 & 1 = 0
ответ: 0
9)
((1 & A) v (B & 0)) v 1
Начнём со второй скобки:
B & 0 = 0 в любом случае. Остаётся:
((1 & A) v 0)) v 1
Если A = 1, то:
1 & 1 = 1
1 v 0 = 1
1 v 1 = 1
Если A = 0, то:
1 & 0 = 0
0 v 0 = 0
0 v 1 = 1
ответ: 1 в любом случае, даже можно было не решать, так как в конце стоит " v 1 " - это значит, что в любом случае ответ будет 1
клен щуфух
Объяснение: