Определить сколько литров бензина база отпустила отдельно за каждый день?

Категория: Delphi/Pascal
2012-03-23 19:32:34

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

code: #pascal
uses crt;
var summa,raz,st,day1,day2:real;
begin;
clrscr;
write('Сколько литров бензина отпустила нефтебаза за 2 дня');
readln(summa);
writeln('Введите на сколько отпущенное кол-во бензина одного дня больше чем другого');
readln(raz);
st:= (summa - raz) / 2.0;
day1:= st;
day2:= st + raz;
writeln('первый день-',day1:7:2,'л.');
writeln('второй день-',day2:7:2,'л.');
end.
Поделиться:

Похожие статьи:

теги: стоимость, студенты