Есть ответ 👍

- .
Ақпараттың өлшем бірліктері. 1-сабақ
Ақпараттың ең кіші бірлігін таңдаңыз.
жауабы
Бит

229
379
Посмотреть ответы 1

Ответы на вопрос:


Без проверок и прочего, все как написано в . если нужно было с проверками - напишите, переделаю : ) program project1; var totala, totalb, solda, soldb : integer; pricea, priceb, sum: real; begin write(' введите цену товара "а": '); readln(pricea); write(' введите количество товара "а" в начале рабочего дня: '); readln(totala); write(' введите количество проданного товара "а": '); readln(solda); write(' введите цену товара "б": '); readln(priceb); write(' введите количество товара "б" в начале рабочего дня: '); readln(totalb); write(' введите количество проданного товара "б": '); readln(soldb); sum: = ((pricea*solda)+(priceb*soldb)); writeln('выручка от продажи двух товаров за день: ', sum: 5: 2); readln; end.      

Популярно: Информатика