567(10) = 5*10^2+6*10^1+7*10^0
94.53(10) = 9*10^1+4*10^0+5*10^(-1)+3*10^(-2)
110.101(2) = 1*2^2+1*2^1+0*2^0+1*2^(-1)+0*2^(-2)+1*2^(-3)
11101(2) = 1*2^4+1*2^3+1*2^2+0*2^1+1*2^0
Ответ:
var
a,b,c,n,s: integer;
begin
readln(n);
if ((n>99) and (n<1000)) then
begin
a:=n div 100;
b:=n div 10 mod 10;
c:=n mod 10;
s:=a+b+c;
writeln('Сумма трех цифр равна ',s);
end else writeln('Введите трехзначное число!');
end.
Объяснение:
1/16 Мбайт = 2^(-4) Мбайт = 2^(-4)*2^(10) Кбайт = 2^(-4)*2^(10)*2^(10) байт = 2^(-4+10+10) байт = 2^(16) байт = 65536 байт
На экран будет выведено:
3
1
1
4
2
2
5
Расчет - в прилагаемом файле.
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n:= ReadInteger('n =');
var tmp := n;
var sum := 0;
while (tmp > 0)do
begin
sum += tmp mod 10;
tmp := tmp div 10;
end;
tmp := (sum div 2) + 1;
while (tmp > 1) do
begin
if (sum mod tmp = 0) then
begin
Writeln(tmp);
halt;
end;
dec(tmp);
end;
Writeln('Not Found, sum is simple number');
end.