ДОПОМОЖІТЬ БУДЬ ЛАСКА!!!
Спрограмувати у паскалі:
Натуральне число з n цифр називається числом Армстронга, якщо сума його цифр, піднесених до n-го степеня, дорівнює самому числу (наприклад, 153=1³ + 5³ + 3³). Відшукати всі числа Армстронга, що складаються з 3-x цифр.
Ответы на вопрос
Ось приклад програми на Pascal, яка знаходить всі числа Армстронга з трьох цифр:
program ArmstrongNumbers;
var
i, j, k, n, sum: integer;
begin
writeln('Armstrong numbers with 3 digits:');
for i:=1 to 9 do
begin
for j:=0 to 9 do
begin
for k:=0 to 9 do
begin
n:= i*100 + j*10 + k;
sum:= round(power(i,3) + power(j,3) + power(k,3));
if sum = n then
begin
writeln(n);
end;
end;
end;
end;
end.
Опис програми:
Змінні i, j, k використовуються для перебору всіх можливих комбінацій трьох цифр.
Змінна n містить значення числа, яке перевіряється на те, чи є воно числом Армстронга.
Змінна sum містить суму цифр, піднесених до 3-го степеня.
Функція power використовується для піднесення цифр до потрібного степеня.
Якщо значення змінної sum дорівнює значенню змінної n, то число n виводиться на екран.
Ця програма виведе на екран всі числа Армстронга з трьох цифр, які будуть відображені під час виконання програми. Можна змінити програму, щоб вона шукала числа Армстронга з будь-якою кількістю цифр, змінивши лічильники циклів та перевірку на кількість цифр у числі n.