ответ:
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
Поделитесь своими знаниями, ответьте на вопрос:
Логическая три мальчика витя саша и игорь отправились в магазин по дороге у магазина они нашли 3 коп. сколько бы денег нашёл игорь если бы он отправился в магазин один
3 копейки,т.к. деньги от кол-ва людей не меняются в сумме.