Есть ответ 👍

Надо ввести второй счётчик.

185
478
Посмотреть ответы 1

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


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.

Популярно: Информатика