Регистрация
nastya2730
21.03.2023 02:32
Информатика
Есть ответ 👍

Информатика . кто решит вот это​

243
482
Посмотреть ответы 1

Ответы на вопрос:

глупыйлолик34
глупыйлолик34
4,7(23 оценок)
Var a,b,c,d,a2: integer; begin    for a: =100 to 9999 do begin          d: =0;           a2: =a;     while (a2 < > 0) do begin       b: = a2 mod 10;       a2: = a2 div 10;       if a< 1000 then c: = (b*b*b)       else c: =(b*b*b*b);       d: = d+c;     end;         if (a = d) then writeln('число армстронга ==> ', a);       end; end.

Популярно: Информатика