Question

Информатика 10 класс задача в Паскале Продаются товары двух видов. Запросить с клавиатуры для каждого товара цену, количество в начале рабочего дня и количество проданного товара (и одного и другого) за день. Вывести выручку от продажи двух товаров за день.

Answer 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.     

Answer 2

Приведу пример кода на языке Паскаль, который решает данную задачу:

program calculate_revenue;

var
  price1, price2, quantity1_start, quantity2_start, quantity1_sold, quantity2_sold: integer;
  revenue1, revenue2, total_revenue: integer;

begin
  writeln('Введите цену первого товара:');
  readln(price1);
  writeln('Введите начальное количество первого товара:');
  readln(quantity1_start);
  writeln('Введите количество проданного первого товара за день:');
  readln(quantity1_sold);

writeln('Введите цену второго товара:');
  readln(price2);
  writeln('Введите начальное количество второго товара:');
  readln(quantity2_start);
  writeln('Введите количество проданного второго товара за день:');
  readln(quantity2_sold);

revenue1 := price1 * quantity1_sold;
  revenue2 := price2 * quantity2_sold;

total_revenue := revenue1 + revenue2;

writeln('Выручка от продажи первого товара за день: ', revenue1);
  writeln('Выручка от продажи второго товара за день: ', revenue2);
  writeln('Общая выручка за день: ', total_revenue);
end.

При запуске программы она будет запрашивать с клавиатуры цены, начальные количество и количество проданных товаров для каждого из двух видов товаров. Затем программа вычисляет выручку от продажи каждого товара за день, а также общую выручку за день и выводит эти значения на экран.