Меню сайта

Задача №22

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

uses crt-

varsumma,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.

Категория: Линейные программы | Дата: 30.11.12

Меню раздела
Блок