Регистрация
SlavZgr
25.11.2021 12:07
Информатика
Есть ответ 👍

Аня и данил жили в многоквартирном доме (количество квартир до 1000). анна заметила, что номера их квартир равны сумме кубов своих цифр. определите номера квартир, если классов - любой вариант решения.

228
299
Посмотреть ответы 2

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

sluvka123123
sluvka123123
4,6(90 оценок)

ответ:

program calc;

uses

  math;

var

  i, j, s, n, m: integer;

  d: double;

begin

  for i : = 1 to 1000 do begin

    s : = 0;

    j : = i;

    while j > 0 do begin

      d : = j mod 10;

      d : = power (d, 3);

      s : = s + trunc (d);

      j : = j div 10;

    end;

    if s = i then

      writeln (s);

  end;

  readln;

end.

объяснение:

в ответе 5 номеров:

1

153

370

371

407

abdualieva130403
abdualieva130403
4,7(2 оценок)
Дешифровка: вход_откр ы т. способ дешифровки: const sh = ''; var   st : string;   i  : integer; function decode(s : string; tabl : string; k : integer) : string; var j,n : integer; begin   for j: =1 to length(s) do   begin       n: =pos(s[j],sh);       if n> 0 then       begin           n: =n+k;           while n> length(sh) do n: =n-length(sh);           while n< =0 do n: =n+length(sh);           s[j]: =sh[n];       end   end;   decode: =s; end; begin   st: ='зыфйгфшрц . шд';   writeln(decode(st,sh,-6));   //for i: =-10 to 10 do writeln(decode(st,sh,i)); end.

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