Pascal с оператора case ! на станции есть бензин нескольких марок и по разной цене. клиент выбирает марку бензина и называет количество литров. вывести чек обслуживания клиента. в нем обязательно должны быть название станции, место расположения, имя оператора, номер колонки, название бензина, количество литров,общая сумма за бензин, сколько было дано денег, сколько дать на сдачу, и пожелать хорошего дня (или другое). оч .

Program n_5; var  a, d: integer;     b, c, f: real; begin d : = random(1, 8);   writeln('для выбора а-92 введите 1. цена: 20.00руб. за литр');   writeln('для выбора а-95 введите 2. цена: 25.00руб. за литр');   writeln('для выбора а-98 введите 3. цена: 30.00руб. за литр');   write('введите марку бензина - ');   readln(a);   write('введите количество литров - ');   readln(b);   if (a < 1) or (a > 3) or (b < = 0) then     write('ошибка. введены некорректные значения');   case a of     1: c : = 20 * b;     2: c : = 25 * b;       3: c : = 30 * b   end;   writeln;   writeln(' ');   writeln('азс: "полный бак"');   writeln('адрес: г.волгоград, улица новослободская д.32');   writeln('кассир: иванова ирина викторовна');   writeln('номер колонки: ', d);   case a of     1: writeln('бензин: а-92');     2: writeln('бензин: а-95');     3: writeln('бензин: а-98');   end;   write('введите размер оплаты - ');   readln(f);   writeln('сумма к оплате - ', f);   if f > c then     writeln('сдача: ', f - c)   else     writeln('не достаточно средств');   write('хорошего дня'); end.

9

Объяснение:

Если s < 5 И t > 6 => YES иначе => NO

(6, 8) 6 < 5 И 8 > 6 NO

(3, 5) 3 < 5 И 5 > 6 NO

(-7, 2) -7 < 5 И 2 > 6 NO

(7, 7) 7 < 5 И 7 > 6 NO

(9, 8) 9 < 5 И 8 > 6 NO

(-1, 3) -1 < 5 И 3 > 6 NO

(-4, 5) -4 < 5 И 5 > 6 NO

(6, 9) 6 < 5 И 9 > 6 NO

(2, -1) 2 < 5 И -1 > 6 NO