Question

Пирожок в столовой стоит a рублей и b копеек. Определите, сколько рублей и копеек нужно заплатить за n пирожков. Программа получает на вход три числа: a, b, n и должна вывести два числа: стоимость покупки в рублях и копейках. Все исходные данные введите с клавиатуры. Ответ прикрепите в виде файла в среде PascalABC.

Answer 1

var a,b,n,i,k : integer;

begin

writeln('Сколько стоит пирожок в руб.');

readln(a);

writeln('сколков коп.');

readln(b);

writeln('сколько пирожков купить вы хотите?');

readln(n);

i:=a*n; k:=b*n;

writeln('Пирожки будут стоить',i,'рублей ',k,'копеек');

end.

Answer 2

К сожалению, я не могу создавать файлы в среде PascalABC или в других средах программирования, так как моя текущая функциональность ограничивается генерацией текстовых ответов.

Однако, я могу помочь вам с алгоритмом решения задачи. Вот пример программы на PascalABC, которая решает вашу задачу:

pascalCopy code
program CostOfPastries;

var
  a, b, n: integer;
  totalRubles, totalKopeks: integer;

begin
  // Вводим данные с клавиатуры
  writeln('Введите стоимость одного пирожка в рублях и копейках (a b): ');
  readln(a, b);
  
  writeln('Введите количество пирожков (n): ');
  readln(n);
  
  // Вычисляем общую стоимость
  totalRubles := a * n + (b * n) div 100;
  totalKopeks := (b * n) mod 100;
  
  // Выводим результат
  writeln('Общая стоимость: ', totalRubles, ' рублей ', totalKopeks, ' копеек');
end.

Эта программа сначала запрашивает стоимость одного пирожка в рублях и копейках (a и b), а затем запрашивает количество пирожков (n). Она вычисляет общую стоимость покупки в рублях и копейках и выводит результат.

Вы можете вставить этот код в среду PascalABC и запустить его, чтобы получить ответ. Не забудьте сохранить программу под подходящим именем и указать расширение ".pas".