1) readln(n);
if n mod 3 = 0 then
writeln('True');
2)readln(x,y);
if (x=0) or (y=0) then
writeln('OSb');
if (x=0) and (y=0) then
writeln('center');
//PascalABC.Net 3.1.0.1200
var
x0, xk, dx, x: real;
function f(x: real): real;
begin
f := x * x * x + 3;
end;
begin
write('Введите промежуток и шаг ([a,b] h) ');
readln(x0, xk, dx);
x := x0;
writeln(' x ':10, ' | ', ' f(x) ':10);
repeat
writeln(x:10:3, ' | ', f(x):10:3);
x := x + dx;
until x > xk;
end.
9 путей , просто берешь и считаешь . Как обяснить я хз
Log2(1677216)=24
24/8=3
Ответ 3 байта