Задача: Дано 2-х значное число, определить является ли сумма его цифр 2-х значным числом. Вопрос: Как решить эту задачу в программе Free Pascal???
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var N: byte;
begin
write('Введите 2-значное число: '); readln(N);
if (N mod 10 + N div 10) >= 10 then
writeln('Сумма цифр 2-значная = ', N mod 10 + N div 10)
else
writeln('Сумма цифр не 2-значная = ', N mod 10 + N div 10);
readln;
end.
Пример:
Введите 2-значное число: 86
Сумма цифр 2-значная = 14
---------------------------------------------
Введите 2-значное число: 54
Сумма цифр не 2-значная = 9