в ячейку b2 вводится слово кратное 3. поменять местами его трети следующим образом: первую треть слова разместить на месте третьей, вторую треть – на месте первой, третью – на месте второй;

111

482

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

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

глупыйлолик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.