6423
13C
Переводим в двоичные коды и разделяем на триады и тетрады
Программа на Паскале прилагается.
Первое слово: =Левсимб(н8,найти(" ";H8)-1)
Второе слово: =Правсимб(н8;найти(" ";H8)-1)
Using namespace std;
int main ()
{
SetConsoleOutputCP(1251);
cout<<"Введите три числа"<<endl;
int a,b,c;
cin>>a>>b>>c;
if ( (a<0) && (b<0) && (c<0))
{
cout<<"неотрицательных чисел нет"<<endl;
system("pause");
return 0; // дальше не выполняем, чтобы не тратить силы впустую
}
if (a>0)
cout<<a*a<<endl;
if (b>0)
cout<<b*b<<endl;
if (c>0)
cout<<c*c<<endl;
system("pause");
return 0;
}