Ответы на вопрос:
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.
Популярно: Информатика
-
262ник62613.08.2021 08:02
-
ksenia777angel20.02.2023 03:20
-
артём542479418.11.2022 15:12
-
Evloevakhava01.09.2020 11:51
-
rasulR125.02.2023 04:11
-
Dhshssh31.03.2023 04:53
-
kirillfox99ozbdp812.09.2020 07:48
-
Пам90425.07.2020 17:08
-
Alexa228820.02.2021 03:15
-
kuraflin66607.01.2022 20:07