Среди всех трезначных чисел найти числа для которых верно утверждение : сумма кубов цифр этого числа равна самому числу. составить паскаль программу

205

291

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

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

MisteryHack0

Информатика

4,5(5 оценок)

1. современный вариант // pascalabc.net 3.1, сборка 1218 от 12.04.2016 begin var pow3: integer-> integer: =n-> n*n*n; var good: integer-> boolean: =n-> (pow3(n div 100)+ pow3((n div 10) mod 10)+pow3(n mod 10))=n; range(100,999).where(x-> good( end. результат: 153 370 371 407 2. школьный вариант // pascalabc.net 3.1, сборка 1218 от 12.04.2016 var i,n,d100,d10,d1: integer; begin for i: =100 to 999 do begin d100: =i div 100; d10: =(i div 10) mod 10; d1: =i mod 10; if d100*sqr(d100)+d10*sqr(d10)+d1*sqr(d1)=i then write(i,' ') end; end.

poli143

Информатика

4,4(21 оценок)

По пунктам: в 1 байте 8 бит (1байт=8бит) в 1 килобайте 1024 байта (1кбайт=1024байт = 2^10) в 1 мегабайте 1024 килобайта (1мбайт=1024кбайт=1048576байт = 2^20) в 1 гигабайте 1024 мегабайта (1гбайт=1024мбайт=1048576кбайт =1073741824байт= 2^30) и так