Спортивный инвентарь, советские тренажеры - выбери, как больше нравится
Var a:array[1..10000] of integer;
n,i,j,k,t:integer;
begin
readln(n);
for i:=1 to n do
read(a[i]);
j:=n;
repeat
k:=j;
j:=0;
for i:=1 to k-1 do
if a[i+1]j:=i;
t:=a[i];
a[i]:=a[i+1];
a[i+1]:=t;
for t:=1 to n do
write(a[t],' ');
writeln;
end;
until j=0;
if k=n then
writeln(0); //Если перестановок не было, программа выводит только число 0. Если эта команда не нужна, можешь ее убрать
end.
1 байт=8 битов
128 бит= 16 байт
1кбайт=8192 бита
1,5 Кбайтов=1536 байт
2048 байт= 2 Кбайта
2мбайта=2048 Кбайтов
81920 байт= 80 кбайтов
1,5 мбайтов= 15728640 байтов
Держи)
Вот код в документе, посмотри во влажении
Тут легко, нарисовать правдо не могу сейчас, первым делом это блок начало, затем блок ввода числа б , то есть количество машин, затем следующий блок ввода данных а, то есть цена машины, затем блок рассчета, с=а*б, то есть подсчёта выручки, затем блок вывода выручки и блок конец. Могу программу попробовать накидать если напишешь язык программирования
По логике так, возможны ошибки
Алг задача
Нач
Цел a, b,c
Вывод "введите количество проданных машин: "
Ввод а
Вывод "введите цену за автомобиль: "
Ввод b
С:=а*b
Вывод c
Кон