Запрашивается цены товаров и их количество в начале рабочего дня. Запрашивается количество проданного товара. Выводится ответ. Возможно, надо было запросить не кол-во проданного товара, а кол-во оставшегося товара, но я составил программу по условию. (если нужна будет другая, то отредактирую)
program tovar; var t1,t2,p1,p2:integer; c1,c2,s:real; Begin WriteLn('Сколько товаров первого вида было в начале рабочего дня?'); ReadLn(t1); WriteLn('Цена товаров первого вида?'); ReadLn(c1); WriteLn('Сколько товаров второго вида было в начале рабочего дня?'); ReadLn(t2); WriteLn('Цена товаров второго вида?'); ReadLn(c2); WriteLn('сколько товаров перового вида было продано за день?'); ReadLn(p1); WriteLn('сколько товаров второго вида было продано за день?'); ReadLn(p2); s:=p1*c1+p2*c2; WriteLn('Выручка за день ' ,s); end.
/// Возник вопрос. Зачем спрашивать, сколько товаров было в начале рабочего дня, если эти данные не используются, вот я и решил составить программу, которая, возможно, требовалась
program tovar; var t1,t2,p1,p2:integer; c1,c2,s:real; Begin WriteLn('Сколько товаров первого вида было в начале рабочего дня?'); ReadLn(t1); WriteLn('Цена товаров первого вида?'); ReadLn(c1); WriteLn('Сколько товаров второго вида было в начале рабочего дня?'); ReadLn(t2); WriteLn('Цена товаров второго вида?'); ReadLn(c2); WriteLn('сколько товаров перового вида осталось?'); ReadLn(p1); WriteLn('сколько товаров второго вида осталось?'); ReadLn(p2); s:=(t1-p1)*c1+(t2-p2)*c2; if (t1-p1<0) or (t2-p2<0) then WriteLn('Внимание! Кол-во оставшихся товаров, больше чем кол-во товаров в начале рабочего дня. Проверьте правильность данных.'); WriteLn('Выручка за день ' ,s); end.
Программа приложена файлом для Visual Basic for Applications
Ниже текст этой программы продублирован
Sub trans_sequence(ByVal M)'заполнение массива и создание преобразованной последовательности чисел N = M Dim mas() ReDim mas(M) Sg = "" Sf = "" Randomize For i = 1 To M mas(i) = Round((Rnd(100) - 0.5) * 100) Sg = Sg + Str(mas(i)) If (mas(i) < 0) Then mas(i) = mas(i) * mas(i) Sf = Sf + Str(mas(i)) If i <> M Then Sg = Sg + "," Sf = Sf + "," End If Next i MsgBox "последовательность чисел " + Sg + Chr(10) + "преобразованная последовательность " + SfEnd Sub
24 делится на 3 и всё