Помогите составить программу в Pascal ABC !
Дано натуральное число
1)Программа, которая находит сумму цифр этого числа
2)которая определяет, что число начинается и заканчивается одной и той же цифрой
Дано натуральное число
1)Программа, которая находит сумму цифр этого числа
2)которая определяет, что число начинается и заканчивается одной и той же цифрой
More Questions From This User See All
Answers & Comments
begin
read (n);
b:= n mod 10;
while n>0 do
begin
if n div 10 = 0 then
a:= n mod 10;
sum:= sum + (n mod 10);
n:= n div 10;
end;
writeln (sum);
if a = b then write ('First digit = Last Digit')
else
write ('First digit <> Last Digit');
end.