Знайти і надрукувати всі трицифрові числа сума кубів яких рівна самому числу
Procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,i:integer;
Begin
ListBox1.Clear;
fori: =100 to 999 do
Begin
a:=i div 100;
b:=i mod 100 div 10;
c:=i mod 10;
if i=a*a*a + b*b*b + c*c*c
then ListBox1.Items.Add(IntToStr(i));
End;
end;

#include <iostream>
#include <math.h>
#include <cstdlib>
using namespace std;

int main()
{
   int position = 0;

    int i,j, ch,a,s;
    int* mass = NULL;
    cout << "Заданное число А: ";
    cin >> a;

    while (1)

    {
        cin >> ch;
        if (ch == 0) break;
        mass = (int*)realloc(mass, (position+1)*sizeof(int));
        mass[position] = ch;
        position++;

    }
    s=0;
    j=0;
    for (i=0;i<position;i++){
        if (((mass[i] > 0) && (mass[i+1] > 0)) || ((mass[i] < 0) && (mass[i+1] < 0)))
            j++;
        if (((mass[i] > 0) && (mass[i] < a)))
            s++;
    }

    cout << "Номер поседней пары: " << j << endl;
    cout << "Положительно и не больше А: " << s << endl;

    return 0;
}

В бутылке, стакане, кувшине и банке находится молоко, лимонад, квас и вода. Известно что вода и молоко не в бутылке, а сосуд с лимонадом находится между кувшином и сосудом с квасом, в банке - не лимонад и не вода. Стакан находится около банки и сосуда с молоком. Как распределены эти жидкости по сосудам?

Решение

Бутылка - НЕ вода, НЕ молоко (т.к. вода и молоко не в бутылке

Стакан - НЕ молоко (т.к. Стакан находится около сосуда с молоком)

Кувшин -НЕ лимонад, НЕ квас (т.к. а сосуд с лимонадом находится между кувшином и сосудом с квасом)

Банка - НЕ лимонад, НЕ вода, НЕ молоко (т.к. в банке - не лимонад и не вода., ...около банки и сосуда с молоком), остается, что в банке - квас

т.к. в бутылке и стакане НЕ молоко, значит молоко в кувшине

т.к. в бутылке НЕ вода, значит вода в стакане

значит остается, что в бутылке - лимонад

в банке - квас

молоко в кувшине

вода в стакане

в бутылке - лимонад