?
Задачу вирішимо в загальному вигляді: позначивши 2560л. - Summa, 280л. - Raz. br/>
program primer2; summa, raz, st, day1, day2: real;
begin; ('Скільки літрів бензину відпустила нафтобаза за 2 дні');
readln (summa); ( 2560 '); (raz);: = (summa - raz)/2.0;: = st;: = st + raz; ('перший день-', day1: 7:2, 'л.');
writeln ('другий день-', day2: 7:2, 'л.');
end.
3. Одне число в 2 рази більше іншого, а їх сума дорівнює 93. Знайти ці числа. Задачу знову вирішимо в загальному вигляді.
program primer3; summa, raz, st, chislo1, chislo2: real;
begin ( 93 '); (summa); ( 2 ); (raz);: = summa/(raz + 1);: = st;: = st * raz; ('1 число-', chislo1: 7:2,' од. '); ('2 число-', chislo2: 7:2, 'од.');
end.
4. Складіть алгоритм і програму для визначення здачі після покупки в магазині товару: рукавичок вартістю а руб., портфеля вартістю b руб., краватки вартістю з руб. Вихідна сума, виділена на покупку d руб. У разі нестачі грошей здача sd вийде негативною.
program primer4; a, b, c, d, sd: real;
begin; ('введіть вартість рукавичок-'); (a); ('введіть вартість портфеля-'); (b) ; ('введіть вартість краватки-'); (c); ('введіть кількість грошей, імеущіхся в наявності-');
readln (d);: = d - (a + b + c); ('Здача -', sd, 'руб.');
end.
5. Дана сторона квадрата а. Знайти його периметр P = 4 * a.
program B egin1;
var a, p: real;
begin
writeln ('Введіть сторону квадрата');
readln (a);
p: = 4 * a; (...
