.


repeatuntil - 4


, :

Program Sum; { }

uses WinCrt;

var

n, s, a : integer;

begin

write(' '); readln(n);

a := n; s := 0;

repeat

s := s + n mod 10; n := n div 10

until n = 0;

writeln(' ', a, ' ', s)

end.

 

:

Program Transpose;

uses WinCrt;

var

n, n1, p, a, i : longint;

begin

write(' n '); readln(n);

a := n; i := 1;

p := n mod

10; { }

repeat

i := i*10; n := n div 10

until n<10;

n1 := a - n*i - p + n + p*i;

writeln(' ', n1)

end.

repeat (. . 21):

. 21