Задано четырехзначное натуральное число X. Получить из него число, записанное теми же цифрами, но в обратном порядке, а так же сумму исходного и полученного числа.

C#:

for (int i = n; i > = 1; i--)

{

Console. WriteLine (i + ",") ;

}

pascal, еле перевел ...

uses crt;

var num, conv, i : integer;

begin write ('Введите четырехзначное число : ') ;

readln (num) ;

conv : = 0;

while (num >0) do

begin

i : = num mod 10;

conv : = conv*10 + i;

num : = num div 10;

end;

writeln ('Число задом наперед : D: ', conv) ;

readln;

end.