var x: real;
function f(x: real): real;
begin
if x < 0 then f:= ln(x)/(1 - x)
else if (0 <= x) and (x < pi) then f:= 10
else if (pi <= x) then f:= cos(6 * x);
end;
begin
readln(x);
writeln(f(x));
end.
Поделим частоту процессора на частоту шины, чтобы найти коэффициент.
19456 байт =19 килобайт, 1кбайт=1024байт, т.е нужно 19456 разделить на 1024, 19456/1024=19
Var
n, s: integer;
begin
readln(n);
s := n mod 10 + n div 10000;
writeln(s);
end.