Question

используя примеры составьте программу для решения задачи бегун значит через каждые а метров от старта стоит наблюдатель на каком минимальном растоянии от старта можно попить воды и задать вопрос наблюдателю значение a и b вводятся с клавиатуры на паскале

Answer 1

program water_station;

var

 a, b, distance: integer;

begin

 write('Введите расстояние между станциями a: ');

 readln(a);

 write('Введите расстояние до ближайшей станции b: ');

 readln(b);

 distance := b;

 while distance < a do

   distance := distance + b;

 writeln('Минимальное расстояние до станции: ', distance);

end.

При запуске программы пользователь сначала вводит расстояние между станциями a и расстояние до ближайшей станции b. Затем программа вычисляет расстояние до первой станции, куда можно попить воды (это расстояние должно быть не меньше b), и выводит результат на экран.