program raf105;
var abc,sum,i:integer;
cba:real;
begin
write('Введите семизначное число: ');
readln(abc);
for i:=7 downto 1 do
sum:= sum+(abc mod 10);
cba:= cba+(abc mod 10)*(10**(i-1));
abc:= (abc-abc mod 10) div 10;
end;
writeln('Сумма цифр в числе: ',sum);
writeln('Перевёрнутое число: ',cba);
end.
Язык программирования PascalABC
program raf105;
var abc,sum,i:integer;
cba:real;
begin
write('Введите семизначное число: ');
readln(abc);
for i:=7 downto 1 do
begin
sum:= sum+(abc mod 10);
cba:= cba+(abc mod 10)*(10**(i-1));
abc:= (abc-abc mod 10) div 10;
end;
writeln('Сумма цифр в числе: ',sum);
writeln('Перевёрнутое число: ',cba);
end.
Язык программирования PascalABC