If a>1000 then
b:=a*0.15;
a:=a -b;
write(a);
else
write('скидки нет');
End.
1000101₂+1111010₂+110111₂=11110<span>110</span>₂
Var
a, b, c, v: real;
begin
writeln('Введите длины сторон a,b,c');
readln(a, b, c);
writeln('Объем параллелепипеда: ', a * b * c)
end.
3 операции.
Нам дано: 5 4 10 1 6 7 8 9 2 3
Сначала меняем с 1 по 9, получаем: 5 4 10 9 8 7 6 1 2 3
Потом меняем с 10 по 3, получаем: 5 4 3 2 1 6 7 8 9 10
В заключение меняем с 5 по 1, получаем: 1 2 3 4 5 6 7 8 9 10
Итого 3 операции.