Фруктовый магазин продает яблоки по АФруктовый магазин продает яблоки по А руб. за кг.,...

Question

Фруктовый магазин продает яблоки по АФруктовый магазин продает яблоки по А руб. за кг., груши по В руб. за кг., апельсины по С руб. за кг. В первые два дня недели продано: понедельник - X кг. яблок, Y кгю груш, Z кгю Апельсинов (X,Y,Z - принимают разные значения в понедельник и во вторник). Напишите Программу, которая будет вычислять, на какую сумму прдал магазин фруктов в каждый из этих дней и за оба дня вместе.

Answer 1

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 var   a, b, c, x, y, z: integer;   Summa1, Summa2: integer; begin   write('Яблоки(руб/кг): ');   readln(a);   write('Груши(руб/кг): ');   readln(b);   write('Апельсины(руб/кг): ');   readln(c);   writeln;   writeln('Понедельник: ');   write('Продано кг яблок: ');   readln(x);   write('Продано кг груш: ');   readln(y);   write('Продано кг апельсинов: ');   readln(z);   Summa1:=x*a+y*b+z*c;   writeln;   writeln('Вторник: ');   write('Продано кг яблок: ');   readln(x);   write('Продано кг груш: ');   readln(y);   write('Продано кг апельсинов: ');   readln(z);   Summa2:=x*a+y*b+z*c;   writeln;   writeln('Понедельник: ', Summa1, ' руб; Вторник: ', Summa2, ' руб'); end.