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

23 ноября 2013 / Разное

Фруктовый магазин продает яблоки по АФруктовый магазин продает яблоки по А руб. за кг., груши по В руб. за кг., апельсины по С руб. за кг. В первые два дня недели продано: понедельник — 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.


Добавить комментарий