Без проверок и прочего, все как написано в задаче. Если нужно было с проверками - напишите, переделаю :)
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.
<span>Из курса истории вам известно, какую огромную роль в развитии человечества сыграло возникновение письменности, позволившее зафиксировать устное слово с помощью букв-знаков. Надписи на камне.
Папирусе, бумаге – не просто сообщения, дошедшие до нас через века. Это документы,позволяющие нам судить о том, как жили люди в ту или иную эпоху, о чём они думали, что их интересовало.
Слово «документ» переводится с латинского как «свидетельство», «доказательство». Первоначально оно означало письменное подтверждение событий или фактов.Например, факт рождения каждого человека документально оформляется в виде свидетельства о рождении
по окончании школы вы получаете аттестат – документ, подтверждающий ваше образование, и т. д.
Современное понятие документа значительно шире, чем «бумага,
заверенная печатью и подписью». Текст является одной из важнейших форм представления информации об окружающей действительности.
Под текстовым документом сегодня понимается информация, представленная на бумажном, электронном или ином материальном носителе в текстовой форме.</span>
var
t : string := 'операция';
begin
writeln('до ', t);
delete(t, 8, 1);
delete(t, 6, 1);
delete(t, 3, 1);
delete(t, 1, 1);
insert('в', t , 4);
insert('ло', t , 6);
writeln('после ', t)
end.
Информационный вес символьной информации: 60х40=2400 байтИнформационный вес изображения: 240х300x3=216000 бит (3 - количество бит, требуемое для кодирования 8 цветов: 2^3=8)216000 бит = 27000 байтОбщая сумма: 27000+2400=29400 байт