Дано семизначное число. Найти и вывести сумму его цифр. Вывести это число в перевёрнутом виде. Можно использовать не более 4 переменных. Число считывается с клавиатуры. Реализовать все необходимо в одном цикле.
Пожалуйста,напишите программу
Пожалуйста,напишите программу
More Questions From This User See All
Answers & Comments
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