В числах Армстронга та Щасливих переробити функції на процедури. Дам 80 балів. Число Армстронга — натуральне число, яке дорівнює сумі своїх цифр, піднесених до степеня, що дорівнює кількості його цифр. Іноді щоб вважати число таким, достатньо, щоб степені, до яких підносяться цифри, були рівні m — тоді число можна назвати m-самозакоханим. Наприклад: 1³ + 5³ + 3³ = 153 або 407=4 3 +0 3 +7 3 , де m = 3 (розрядність числа). Щасливими будемо називати числа, у яких парна розрядність і сума цифр лівої половинки числа дорівнює сумі цифр правої половинки числа. Наприклад: 382571 3+8+2=13 5+7+1=13 Задачі: {числа Армстронга 153,370… } VAR n,i:longint; Function Roz(a:longint):byte; VAR k:byte; BEGIN k:=0; While a>0 do BEGIN a:=a div 10; k:=k+1; END; Roz:=k; END; Function St(v,m:byte):longint; VAR y:longint; j:byte; BEGIN y:=1; For j:=1 to m do y:=y*v; St:=y; END; Function Arm(x:longint):boolean; VAR k,c:byte; s,b:longint; BEGIN Arm:=false; k:=Roz(x); b:=x; s:=0; while b>0 do BEGIN c:=b mod 10; s:=s + st(c,k); b:=b div 10; END; If s=x then Arm:=true; END; BEGIN Writeln('Vvedite Chislo'); Readln(n); For i:=10 to n do If Arm(i) then Write(i,', '); Readln END. { Щасливі числа 22…1102…1120…} VAR n,i:longint; Function Roz(a:longint):byte; VAR k:byte; BEGIN k:=0; While a>0 do BEGIN a:=a div 10; k:=k+1; END; Roz:=k; END; Function St10(m:byte):longint; VAR y:longint; j:byte; BEGIN y:=1; For j:=1 to m do y:=y*10; St10:=y; END; Function Sum(a:longint):byte; VAR S:byte; BEGIN S:=0; While a>0 do BEGIN S:=S+a mod 10; a:=a div 10; END; Sum:=S; END; Function Lucky(x:longint):boolean; VAR k:byte; d,xl,xr:longint; BEGIN Lucky:=false; k:=Roz(x); If k mod 2=0 then BEGIN d:=St10(k div 2); xl:=x div d; xr:=x mod d; If Sum(xl)=Sum(xr) then Lucky:=true; END; END; BEGIN Writeln('Vvedite Chislo'); Readln(n); For i:=10 to n do If Lucky(i) then Write(i,', '); Readln END.

Ответ:

Ось приклад програми на 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.

Объяснение: