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

var a,b,c,n: integer; beginfor n: =100 to 999 do begin a: = n div 100; b: = n div 10 mod 10; c: = n mod 10; if (a+b+c)*(a+b+c)*(a+b+c)=n then writeln(n); end; end.

 

и в результате получаем, что это число 512

ответ: Що таке предметна галузь?

    Ти вже знаєш, що нас оточують різні об’єкти. Кожен об’єкт має свої властивості та їх значення — дані різного типу. Об’єкти, що мають однакові властивості, можна об’єднувати в групи — класифікувати. З об’єктами також можна виконувати певні дії. Крім того, різні об’єкти взаємодіють між собою: планети утворюють Сонячну систему, моле- кули утворюють різні сполуки, учні та вчителі взаємодіють у школі. Сукупність об’єктів, що мають однакові властивості та перебувають у певних відношеннях, утворюють предметну галузь. Предметними галузями можуть бути, наприклад, архітектура, про- мислове підприємство, транспорт, освіта тощо.

   Предметна галузь — сукупність всіх об’єктів, властивості яких і відношення між якими розглядаються у відповідній галузі.

Предметну галузь часто називають галуззю дослідження, об- ластю вивчення чи колом інтересів. В англійській мові це Field of Study. Одну й ту саму предметну галузь можуть досліджувати люди різних професій чи віку. При цьому вони виділяють об’єкти з цієї галузі чи розглядають різні властивості об’єктів залежно від завдання, яке ви- конується. Наприклад, предметну галузь біологія можуть розглядати учні на уроках, науковці в лабораторіях чи дослідники-мандрівники в реальних умовах.

Чому люди користуються моделями та створюють їх?

   Об’єкти, що оточують людину, належать до різних предметних га- лузей і є досить складними. Деякі реальні об’єкти досліджувати в пов- ній мірі складно. Наприклад, без додаткового сучасного обладнання неможливо провести наукові дослідження з об’єктами, що перебувають на значній відстані, зокрема, з космічними, з дуже малими або дуже великими

об’єктами. Саме тому часто реальні об’єкти замінюють їх моделями. При розв’язуванні кожної конкретної задачі людину мо- жуть цікавити лише деякі з властивостей, тоді говорять про суттєві властивості об’єктів.

    Наприклад, якщо ви з одно- класниками вирішите висадити на шкільному подвір’ї квітковий го- динник, то суттєвими властивостя- ми об’єкта квітка будуть: розмір, час цвітіння, час розкривання та закривання квітів. Але якщо доби- ратимете квіти для гербарію, то вас цікавитимуть зовсім інші властиво- сті: збереження кольору квітки після сушіння, ступінь усушки тощо. На основі даних про властивості, що є суттєвими в конкретній си- туації, можна створити інший об’єкт, який спрощено відображатиме основні властивості реального. Такі спрощені об’єкти називають моде- лями

Объяснение:

1var  a: array[1..10]of integer;   s,i: integer; beginfor i: =1 to 10 do readln(a[i]); for i: =1 to 10 do    if a[i]> 0 then        begin        s: =s+a[i];         write(a[i],' ');         end; writeln; writeln('сумма: ',s); end.2var   a: array[1..20]of integer;   s,i: integer; begin writeln('исходный массив: '); for i: =1 to 20 do   begin   a[i]: =random(20);   write(a[i],' ');   end; writeln; write('искомые элементы: '); for i: =1 to 20 do     if i mod 2=1 then         begin         s: =s+a[i];         write(a[i],' ');         end; writeln; writeln('их сумма: ',s); end. 3var   a: array[1..20]of integer;   s,i: integer; begin writeln('исходный массив: '); for i: =1 to 20 do   begin   a[i]: =random(-50,50);   write(a[i],' ');   end; writeln; write('меньше 25: '); for i: =1 to 20 do     if a[i]< 25 then         begin         s: =s+1;         write(a[i],' ');         end; writeln; writeln('их количество: ',s); end.