Составьте сложное логическое выражение по таблице истинности: А B C F

0 0 0 1

0 0 1 0

0 1 0 0

0 1 1 1

1 0 0 1

1 0 1 0

1 1 0 1

1 1 1 1

230

353

Посмотреть ответы 2

Ответы на вопрос:

yorik555

Информатика

4,5(2 оценок)

a\/b

Объяснение:

ArbuzovAndrey

Информатика

4,8(76 оценок)

Var _500,_100,_50,_10,money_get: integer; beginwriteln('введите стоимость товара'); readln(money_get); while(money_get mod 10 < > 0) do begin writeln('стоимость должна делиться на 10, попробуйте еще раз'); readln(money_get); end; while (money_get> =500) do begin _500: =_500+1; money_get: =money_get-500; end; while (money_get> =100) do begin _100: =_100+1; money_get: =money_get-100; end; while (money_get> =50) do begin _50: =_50+1; money_get: =money_get-50; end; while (money_get> =10) do begin _10: =_10+1; money_get: =money_get-10; end; writeln(_500,': 500 рублей',_100,': 100 рублей',_50,': 50 рублей',_10,': 10 рублей'); readln; end.