Дано натуральное число. Найти число, получаемое при прочтении его цифр справа налево - Pascal ABC

Формулировка задачи:

Помогите написать программу Дано натуральное число. Найти число, получаемое при прочтении его цифр справа налево. Вычислить сумму .

Код к задаче: «Дано натуральное число. Найти число, получаемое при прочтении его цифр справа налево - Pascal ABC»

textual
var
a, b, c, d, sumch, sumcif:integer;
begin
writeln('Введите натуральное число');
read(a);
sumcif:=0;
d:=a;
while a > 0 do
    begin
    b:=a mod 10;
    inc(sumcif,b);
    c:=c*10+b;
    a:=a div 10;
    end;
writeln('Полученное число: ',c);
sumch:=d + c;
writeln('Сумма исходного и полученного чисел = ',sumch,' сумма цифр числа = ',sumcif);
end.

6   голосов, оценка 4.667 из 5


СОХРАНИТЬ ССЫЛКУ