Var
a : integer;
Begin
Readln(a);
Writeln(a div 10, ' ', a mod 10);
end.
Восопользуся Algo на паскале или Delghi 6.0
Program Summa;
Uses Crt;
var n,s:integer;
begin
clrscr;
write('Вводите числа конец ввода 0: ');
s:=0;
repeat
readln(n);
s:=s+n;
until (n=0);
writeln;
writeln('Сумма чисел: ',s);
readkey;
end.
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadSeqInteger(ReadInteger('n=')).Reverse.Println;
end.
<u>Пример</u>
n= 5
1 2 5 7 9
9 7 5 2 1