Question

Надо написать программу на Pascal. Вася готовится к муниципальному этапу олимпиады по информатике, он хочет показать на нём хороший результат. Чтобы добиться этого, он разработал собственную систему тренировок — он каждый день решает задачи. Причём, он решает разное количество задач в будние и в выходные дни. В будний день Вася решает X задач, в выходной день — Y задач. Выходным Вася считает каждый K -й день, то есть дни с номерами K , 2 K , 3 K , … являются выходными. Вася будет готовиться к олимпиаде ровно N дней и он хочет заранее знать, сколько всего задач он решит. Считается, что Вася решает задачи, начиная с дня с номером 1. Требуется написать программу, которая по данным N , K , X , Y вычисляет количество решённых задач. Входные данные В первой строке вводится натуральное число N ( 1 ⩽ N ⩽ 1000 ) - количество дней, которое Вася будет решать задачи для подготовки к олимпиаде. Во второй строке вводится натуральное число K ( 1 ⩽ K ⩽ 1000 ) - номер первого выходного дня. В третьей строке вводится натуральное число X ( 1 ⩽ X ⩽ 1000 ) - количество задач, которое Вася решает в будний день. В четвёртой строке вводится натуральное число Y ( 1 ⩽ Y ⩽ 1000 ) - количество задач, которое Вася решает в выходной день. Пример входные данные 3 2 10 15 выходные данные 35

Answer 1

program abc;

var n,k,x,y:integer;

begin

   readln(n);

   readln(k);

   readln(x);

   readln(y);

 writeln((k)*x+(n-k)*y);  

end.

Answer 2

Программа на Pascal для вычисления количества решенных задач Васей может выглядеть следующим образом:

pascalCopy code
program OlympiadPreparation;

var
  N, K, X, Y, day, totalTasks: integer;

begin
  // Ввод данных
  readln(N);
  readln(K);
  readln(X);
  readln(Y);

  totalTasks := 0;
  day := 1;

  // Цикл по дням подготовки
  while day <= N do
  begin
    // Если текущий день - выходной (делится на K без остатка), то решаем Y задач
    if day mod K = 0 then
      totalTasks := totalTasks + Y
    else
      // В противном случае, если текущий день - будний, решаем X задач
      totalTasks := totalTasks + X;

    // Увеличиваем счетчик дня
    day := day + 1;
  end;

  // Вывод общего количества решенных задач
  writeln(totalTasks);
end.

Сначала программа считывает входные данные: N (количество дней подготовки), K (номер первого выходного дня), X (количество задач в будний день) и Y (количество задач в выходной день). Затем она использует цикл while для симуляции каждого дня подготовки. В зависимости от того, является ли текущий день выходным или будним, программа добавляет соответствующее количество задач к общему числу решенных задач. Наконец, программа выводит общее количество решенных задач.