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

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

Дано шестизначное число. Найти сумму его цифр, а также число, получаемое при прочтении его цифр справа налево pascal

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

textual
var
  sum, n, r: longint;
 
begin
  writeln('Ввести число: ');  
  readln(n);
  r := 0;
  sum := 0;
  while n <> 0 do
  begin
    sum := sum + n mod 10;
    r := r * 10 + n mod 10;
    n := n div 10
  end;
  writeln('Число: ', r);
  writeln('Сумма: ', sum);  
  //  readln
end.

10   голосов, оценка 4.100 из 5


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