var a, s: integer; // целочисленный тип данныхbeginwriteln('введите число: '); readln(a); // вводим число (можно больше трех знаков) while a < > 0 do // пока остались цифры в числе begin s : = s + (a mod 10); // отбираем последнюю цифру числа и прибавляем к сумме a : = a div 10; // стираем последнюю цифру числа end; writeln('сумма цифр = ', s) // выводим результатend.
Ответ дал: Гость
в в) так как там идет в раза больше тоесть 3 в 2 рказа меньше чем 6, и потом они идут в обратном порядке 3 цифры
Ответ дал: Гость
n=get()k=0s=0while n> =1 do s=s+n % 10 k=k+1 n=(n-n%10)/10endprint(s,k)
Популярные вопросы