Ответы на вопрос:
12 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.
Популярно: Информатика
-
Arinka2605200515.09.2020 08:51
-
qmess1008.04.2021 16:08
-
kuprianova2401224.03.2023 02:03
-
Timewinter18.04.2022 20:26
-
Depaer24.08.2020 07:38
-
Milalenka109.02.2022 13:31
-
Diana675421.01.2021 00:11
-
Ntt118.02.2020 18:22
-
ankka160022.01.2022 16:30
-
khezh07324.07.2022 08:57