Запрашивается цены товаров и их количество в начале рабочего дня. Запрашивается количество проданного товара. Выводится ответ. Возможно, надо было запросить не кол-во проданного товара, а кол-во оставшегося товара, но я составил программу по условию. (если нужна будет другая, то отредактирую)
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.
ответ:1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
Chislo, Count, Summa, n: integer;
begin
Summa := 0;
Count := 0;
readln(Chislo);
while Chislo > 0 do
begin
n := Chislo mod 10;
if odd(n) then
begin
Summa := Summa + n;
inc(Count);
end;
Chislo := Chislo div 10;
end;
writeln('Сумма нечетных цифр числа: ', Summa);
writeln('Кол-во нечетных цифр числа: ', Count);
writeln('Среднее арифметическое нечетных цифр: ', Summa / Count);
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:=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.