Не чего не видно!(( попробу объяснить письменно
Program exs;
var a, i, sum : integer;
begin
sum:= 0;
readln(a); {Считывание числа}
for i:= 1 to 4 do begin
sum:=sum + (a mod 10); {Находим остаток от деления на 10}
a:=a div 10; {Выкидываем найденную цифру из числа}
end;
writeln(sum);
end.
For(x = 0; x < 20; x++)
{
for(y = 0; y < 20; y++)
{
for(z = 0; z < 20; z++)
{
if(x * x * y == z * z)
{
printf("\%d \%d \%d", x, y, z);
}
}
}
}
Число 108₁₀=1101100₂ в восьмиразрядном представлении имеет вид 01101100