//PascalABC.NET 3.2 сборка 1318
Var
n,first,oth:integer;
begin
readln(n);
first:=n mod 10;
oth:=n div 10;
if first<>0 then writeln(first,oth) else writeln('X не трёхзначеное');
end.
Пример ввода:
234
Пример вывода:
423
K=256x128=2^8*2^7=2^15 пикс.;
I=16=2^4 КБ = 2^4*2^10*2^3 = 2^17 бит
i=k/I=2^17/2^15=2^2 бит = 4 бита на пиксель.
N=2^i=2^4= 16
Ответ: 16 цветов в палитре.
32 = 2 в степени 5
5 бит на символ
Текст 1,5 Кб = 1536 байт = 12288 бит
<span>12288/5 = 2457 символов</span>
var
x,a, b: integer;
begin
readln (x);
a:= x div 10;
b:= x mod 10;
writeln ('сумма=', a+b);
writeln( ' произведение =', a*b);
end.
X = 5; y = 15.
Y = 20;
X = 0.
T = 20;
X = 0 + 20 + 20 = 40;
Y = 40 + 20 = 60.
Ответ: 3.