Дано трехзначное число. Определить: а) является ли сумма его цифр двухзначным числом; б) является ли произведение его цифр трехзначным числом; в) больше ли числа а произведение его цифр; г) кратна ли пяти сумма его цифр; д) кратна ли сумма его цифр числу а.

А - любое число, вводится с клавиатуры.

Программа - С++

#include <conio.h>

#include<iostream.h>

void main()

{

int n,s,p,a;

cout<<"Введите число》";

cin>>n;

s=0;

p=1;

while (n>0)

{

s=s+n%10;

p=p*(n%10);

n=n/10;

}

cout<<s <<endl;

cout<<p<<endl;

if ((s%10>0)&&(s/100==0))

cout<<"сумма двузначная"<<endl;

if ((p%100>0)&&(p/1000==0))

cout<<"произведение трехзначное"<<endl;

cout<<"Введите число a》";

cin>>a;

if (p>a)

cout<<"произведение > "<<a<<endl;

if (s%5==0)

cout<<"сумма кратна 5"<<endl;

if (s%a==0)

cout<<"сумма кратна "<<a<<endl;

}

если есть д ш и в то это не куб а параллелипипед

var 

a,b,c,r: real;

begin

readln(a,b,c,r);

if (2*r< a) and (2*r< b) and  (2*r< c)

then writeln('поместится')

else writeln ('не поместится');

end.

для куба достаточно одного условия (2*r< a) 

  var a,b,c,d: integer;

begin

writeln ('vvedite a');

  read(a);

writeln ('vvedite b');

  read(b);

writeln ('vvedite c');

  read(c);

writeln ('vvedite d');

  read(d);

if (a> b) and (a> c) and (a> d)  then writeln('samoe bolshoe chislo - a')

  else writeln('a ne samoe bolshoe');

end.