Question

Написать программу на языке Pascal вычисления стоимости покупки, состоящей из нескольких тетрадей, нескольких ручек и несколькихкарандашей. Стоимость одной тетради - 10 рублей, стоимость одной ручки - 20 рублей, стоимость одного карандаша - 10 рублей. Это неизменные величины. Количество тетрадей, ручек и карандашей вводится пользователем и может быть различным.

Answer 1

Program symma;
var
  t, r, k, s: integer;
begin
     write('введите количество тетрадей  ');
     readln(t);
     write('введите количество ручек');
     readln(r);
     write('введите количество карандашей');
     readln(k);
     s:=0;
     s:=t*10+r*20+ k*10;

writeln('стоимость покупки=',s);

end.

Answer 2

Я могу помочь вам с написанием программы на языке Pascal. Вот один из возможных вариантов решения вашей задачи:

program purchase;
// Объявление констант
const
  notebook_price = 10; // Стоимость одной тетради в рублях
  pen_price = 20; // Стоимость одной ручки в рублях
  pencil_price = 10; // Стоимость одного карандаша в рублях
// Объявление переменных
var
  notebooks, pens, pencils: integer; // Количество тетрадей, ручек и карандашей
  total: integer; // Стоимость покупки в рублях
begin
  // Ввод данных с клавиатуры
  writeln('Введите количество тетрадей:');
  readln(notebooks);
  writeln('Введите количество ручек:');
  readln(pens);
  writeln('Введите количество карандашей:');
  readln(pencils);
  // Вычисление стоимости покупки
  total := notebooks * notebook_price + pens * pen_price + pencils * pencil_price;
  // Вывод результата на экран
  writeln('Стоимость покупки составляет ', total, ' рублей.');
end.

Надеюсь, это вам поможет.