1. Как изменить фон буклета? 2. Как сгруппировать объекты в публикации? 3. Как добавить текст в Фигуру? 4. Как изменить направление текста в «Информационном блоке» шаблона? 5. Как создать маркированный список?
Тут легко, нарисовать правдо не могу сейчас, первым делом это блок начало, затем блок ввода числа б , то есть количество машин, затем следующий блок ввода данных а, то есть цена машины, затем блок рассчета, с=а*б, то есть подсчёта выручки, затем блок вывода выручки и блок конец. Могу программу попробовать накидать если напишешь язык программирования
По логике так, возможны ошибки
Алг задача Нач Цел a, b,c Вывод "введите количество проданных машин: " Ввод а Вывод "введите цену за автомобиль: " Ввод b С:=а*b Вывод c Кон
// PascalABC.NET 3.2, сборка 1370 от 24.12.2016 // Внимание! Если программа не работает, обновите версию!
begin; var s:=ReadInteger('n=').ToString; If s.Length<>(s.Distinct.Count) then Writeln('не является') else if s=s.ToCharArray.SortedDescending.JoinIntoString('') then Writeln('является') else Writeln('не является') end.
Примеры n= 9875431 является
n= 9753321 не является
n= 9763421 не является
Замечание: учтено, что упорядоченность должна быть по убыванию а не по невозрастанию. т.е. нельзя, чтобы попадались две одинаковые цифры.
По логике так, возможны ошибки
Алг задача
Нач
Цел a, b,c
Вывод "введите количество проданных машин: "
Ввод а
Вывод "введите цену за автомобиль: "
Ввод b
С:=а*b
Вывод c
Кон
// Внимание! Если программа не работает, обновите версию!
begin;
var s:=ReadInteger('n=').ToString;
If s.Length<>(s.Distinct.Count) then Writeln('не является')
else
if s=s.ToCharArray.SortedDescending.JoinIntoString('')
then Writeln('является') else Writeln('не является')
end.
Примеры
n= 9875431
является
n= 9753321
не является
n= 9763421
не является
Замечание: учтено, что упорядоченность должна быть по убыванию а не по невозрастанию. т.е. нельзя, чтобы попадались две одинаковые цифры.