Нефтебаза отпустила за 2 дня 2560 л бинзина. Во второй день база отпустила на 250 л больше чем в первый. Сколько в каждый день?

Решить надо в паскале.

Объясните как поожалуйста.

Ну тут решил вводить числа не в самом коде, а через ввод с клавиатуры, т. к. мне кажется это более лучшим вариантом (но можно и сразу задать в константы X = 2560 и Y = 250, дело твоё.)

Потом я отнимаю от общего количества 250, чтобы уровнять эти 2 дня, делю на 2 и получаю сколько отпустила за каждый день. Теперь обратно добавляем ко 2 дню 250, чтобы не нарушалось условие задачи. Вывожу на экран. Всё

Var

day1, day2, x, y : real;

Begin

Writeln ('Нефтебаза отпустила за 2 дня X л бензина.');

Writeln ('Во второй день база отпустила на Y л больше чем в первый.');

Write ('Введите X: '); readln (x);

Write ('Введите Y: '); readln (y);

day1 : = (x - y) / 2;

day2 : = day1 + y;

Writeln ('За первый день было отпущено ', day1, ' литров бензина.');

Write ('За второй день было отпущено ', day2, ' литров бензина.');

End.

Вот лог программы

Нефтебаза отпустила за 2 дня X л бензина.

Во второй день база отпустила на Y л больше чем в первый.

Введите X: 2560

Введите Y: 250

За первый день было отпущено 1155 литров бензина.

За второй день было отпущено 1405 литров бензина.

На самом деле паскаль тут притянут за уши.

Пусть в первый день было отпущено х литров, тогда во второй х+250, а за два дня х+х+250 = 2560. И решаем уравнение.

2 х+250 = 2560; 2x=2310; x=1155 - было отпущено в первый день.

х+250 = 1155+250 = 1405 было отпущено во второй день.

Проверка: 1155+1405 = 2560.

Так мы решаем задачу вручную.

А с помощью программы что тут сделать можно? только посчитать.

x = (2560-250) / 2 - первый день и х+250 - второй.

var

x:real;

begin

x: = (2560-250) / 2;

Writeln ('1 й день ', x, 'л.');

Writeln ('2 й день ', x+250, 'л.')

end.

Результат

1 й день 1155 л.

2 й день 1405 л.