Вывести на экран все двузначные числа сумма цифр которых равна 7.
Нужно составить программу и желательно с пояснением что происходит в каждой строке
ПАСКАЛЬ
Ответы
//Объявляем константы для границ двухзначных чисел
const
min = 10;
max = 99;
//Заводим переменную-счётчик для индексации цикла
var
i:integer;
{
Функция для для подсчёта суммы цифр числа. Передаём ей число. Превращаем его в строку. Далее идём по каждому элементу строки и суммируем, заранее переведя его обратно в численное представление функцией StrToInt()
}
function DigSum(number:integer):integer;
var
SomeString:string;
s_sum, i, size:integer;
begin
s_sum:=0;
Str(number, SomeString);
size:=length(SomeString);
for i:=1 to size do
inc(s_sum, StrToInt(SomeString[i]));
DigSum:=s_sum;
end;
{
Пускаем цикл по двузначным числам и на каждое из них применяем написанную нами функцию. Если результат = 7, то выводим число на экран.
}
begin
for i:=min to max do
if (DigSum(i) = 7) then
write('Сумма цифр числа ', i, ' = ', DigSum(i), #10);
end.
