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