Ответы на вопрос:
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.
Популярно: Информатика
-
Shool17809.11.2021 05:24
-
НикитаЗеленюк18.02.2020 06:17
-
Lugazat28.11.2020 09:00
-
Виктория247806.06.2021 12:52
-
AnnHaylen04.04.2022 08:37
-
Ольга555555555513.12.2022 11:47
-
mgatron26.04.2023 12:19
-
irinamyn111.03.2023 05:38
-
natali25108117.11.2022 00:51
-
Xylinado04.04.2020 20:30