// PascalABC.NET
<span>// Версия 3.3.5 сборка 1662 (29.04.2018)
</span>
begin
Println('Цифры:', ReadInteger('n-> '). ToString.Reverse.Println.Reverse.JoinIntoString(' '))
end.
<u>Пример:</u>
n-> 451234
432154
Цифры: 4 5 1 2 3 4
<span>схема отношения
векторное изображение
схема алгоритмов
функциональная схема
что то мб подойдет</span>
If x<1 Then y:=sqr(2) Else If x>1 Then y:=x+8 Else Writeln('x не должен быть=0')
Объяснение:
Если x<1, то y:=<u />
, иначе, если x>1, то y:=x+8,иначе вывести:x не должен быть=0
// PascalABC.NET 3.3
begin
var x:=ReadInteger;
writeln((1+x)*x div 2);
end.
Пример:
6
21