Question

Пожалуйста, помогите составить линейные алгоритмы на языке Pascal. Вот задачи 1)Железнодорожный билет для взрослого стоит X рублей. Стоимость билета для школьника Y составляет P% от стоимости билета для взрослого. Группа состоит из K школьников и V взрослых. Сколько рублей M стоят билеты на всю группу? 2) При оплате услуг через платежный терминал взимается комиссия P%. Терминал принимает суммы кратные 10 рублям. Аня хочет положить на счет своего мобильного телефона не меньше R рублей. Какую минимальную сумму M она должна положить в приемное устройство данного терминала? Заранее спасибо.

Answer 1

Могу помочь с 1 задачей:
program z;
var
x, y, p, k, v, m: real;
begin
read (x, y, p, k, v, m);
m:=v*x+k*(x*p/100);
write (m);
end.

Answer 2

Конечно, помогу вам составить линейные алгоритмы на языке Pascal для данных задач.

1. Рассчитаем стоимость билетов на всю группу:

pascalCopy code
program CalculateGroupTicketsCost;
var
  X, Y, P, K, V: integer;
  M: integer;
begin
  // Ввод данных
  writeln('Введите стоимость билета для взрослого (X): ');
  readln(X);
  writeln('Введите процент стоимости билета для школьника (Y): ');
  readln(Y);
  writeln('Введите количество школьников (K): ');
  readln(K);
  writeln('Введите количество взрослых (V): ');
  readln(V);
  
  // Расчет стоимости билетов на всю группу
  M := V * X + K * (X * Y / 100);

  // Вывод результата
  writeln('Общая стоимость билетов на всю группу: ', M, ' рублей');
end.

2. Рассчитаем минимальную сумму для пополнения мобильного телефона через платежный терминал:

pascalCopy code
program CalculateMinimumTopUpAmount;
var
  R, P, M: integer;
begin
  // Ввод данных
  writeln('Введите желаемую сумму для пополнения телефона (R): ');
  readln(R);
  writeln('Введите процент комиссии платежного терминала (P): ');
  readln(P);

  // Расчет минимальной суммы для пополнения телефона
  M := R + R * P / 100;
  M := ((M + 9) div 10) * 10; // Округляем сумму до ближайшего десятка

  // Вывод результата
  writeln('Минимальная сумма для пополнения: ', M, ' рублей');
end.

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